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1.0  INTRODUCTION 


1.1  Thesis  Topic 

The  subject  of  this  thesis  is  the  measurement  of 
"drift”  (i.e.  plasma  motion)^"  in  the  F  region  of  the  auroral 
(polar)  ionosphere.  In  order  to  justify  the  role  of  drift 
measurements  in  the  context  of  a  scientific  study  of  the 
ionosphere,  a  brief  review  of  the  history  and  present  status 
of  ionospheric  investigation  will  be  presented  first.  Since 
the  method  of  observation  used  for  gathering  the  data  for 
this  thesis  is  radio  sounding  (via  radio  waves  reflected 
coherently  off  the  ionosphere),  emphasis  will  be  placed  on 
this  method  of  investigation  and  what  it  reveals  about  the 
ionosphere. 


In  this  thesis,  when  we  speak  of  "drift"  without  qual¬ 
ification,  we  are  referring  to  plasma  drift,  as  op¬ 
posed  to  current.  (Some  authors,  in  the  context  of 
fading  measurements  (see  section  1.7.1),  speak  of 
drift  velocity  in  reference  to  the  "drifting"  of  the 
interference  pattern  on  the  ground.)  When  charged 
particles  are  accelerated  by  an  applied  force  but  are 
also  continuously  subject  to  collisions  with  neutral 
particles,  the  resulting  motion  of  the  charged  parti¬ 
cles  is  random,  but  there  is  also  a  net  component  of 
motion  at  some  angle  to  the  applied  force  (see  section 
1.6. 2.1);  the  average  speed  of  this  net  motion  is 
called  the  drift  speed.  In  this  sense,  electrons  and 
positive  ions  eacn  drift  in  some  particular  direction. 
If  the  electron  and  ion  drifts  are  in  the  same  direc¬ 
tion,  the  plasma  moves  bodily:  this  is  what  we  call 
plasma  drift  or  simply  drift.  If  the  electron  and  ion 
drifts  are  in  opposite  directions,  we  speak  of  plasma 
currents.  We  also  use  the  expression  "Doppler  drift" 
in  reference  to  measurements  of  plasma  drift  using 
ULCAR’s  method  of  measuring  the  Doppler-frequency  of 
the  reflected  echoes. 


1 . 2  Summary 

The  discovery  and  scientific  study  of  the  iono¬ 
sphere  is  relatively  recent  in  the  history  of  physics. 
Guglielmo  Marconi's  successful  trans-Atlantic  radio  trans¬ 
mission  in  1901  initiated  speculation  as  to  how  radio  waves 
which  travel  in  nearly  straight  lines  could  be  received  at 
great  distances  beyond  the  horizon.  The  presence  of  ionized 
gases  in  the  upper  atmosphere  had  been  postulated  earlier  as 
an  explanation  of  the  aurora  ("northern  lights")  and  of  var¬ 
iations  in  the  earth's  magnetic  field;  belief  in  the  exist¬ 
ence  of  an  ionized  layer  now  gained  further  impetus  as  the 
possible  explanation  of  electromagnetic-wave  reflection. 
Scientific  curiosity  and  the  growing  commercial  use  of  radio 
for  long-distance  communications  stimulated  the  development 
of  methods  for  investigating  various  theories  about  the  na¬ 
ture  and  structure  of  the  ionized  layer.  A  milestone  was 
achieved  in  1924  when  vertical  reflection  of  high-frequency 
radio  waves  was  first  used  to  study  directly  the  electron 
content  of  the  upper  atmosphere;  after  that,  knowledge  of 
the  ionosphere  developed  rapidly,  although  radio  sounding 
was  limited  to  heights  of  about  300  km.  The  study  of  the 
chemical  structure  of  the  entire  atmosphere  by  various  tech¬ 
niques  added  further  to  man's  knowledge  of  the  ionosphere, 
in  particular  after  rockets  and  satellites  came  into  use  in 
the  1950's.  The  successful  development  in  1958  of  Thomson 
scatter  sounding  with  VHF  and  UHF  radio  waves  (which  measures 

the  weak  incoherent  signals  scattered  back  by  the  free- 

o 

electron  clusters  in  the  ionosphere)  and  the  use  of  topside 
sounding  by  satellite  (using  HF  radio  waves  transmitted  from 
a  satellite)  since  1962,  have  made  it  possible  to  explore 


2 

Hargreaves  (1979),  section  3.7,4. 

3 

Hargreaves  (1979),  section  3.7.1. 


the  ionosphere  above  300  km;  satellites  have  also  added  im¬ 
portant  knowledge  about  the  geomagnetic  field  (which  extends 
much  beyond  the  ionosphere)  and  solar  radiation,  and  the  in¬ 
fluence  of  both  on  the  ionosphere. 

The  various  observation  techniques  employed  in 
studying  the  ionosphere  have  measured  continual  changes  in 
ionospheric  structure.  Knowledge  of  the  dynamics  behind  the 
structure  variations  is  a  prerequisite  for  a  more  thorough  un¬ 
derstanding  of  ionospheric  phenomena.  Attempts  have  been  made 
to  measure  ionospheric  movements  by  analyzing  the  fading  of 
radio  signals  (fading  is  due  to  the  interference  of  multi-path 
signals  reflecting  off  moving  ionospheric  irregularities), 
but  interpretation  of  the  resulting  interference  patterns  has 
proven  difficult.  Another  method,  which  determines  plasma 
drift  by  measuring  the  Doppler  shift  of  each  reflected  signal, 
has  been  under  development  since  the  late  1960's  by  the  Uni¬ 
versity  of  Lowell  Center  for  Atmospheric  Research  (ULCAR)  in 
cooperation  with  the  Air  Force  Geophysics  Laboratory  (AFGL). 

The  purpose  of  "Doppler-drift"  measurements  is  to 
determine  general  plasma  motion  from  direct  measurements  of 
the  moving  irregularities.  Some  results  have  been  obtained 
with  this  approach;  but  in  order  to  take  advantage  of  the  full 
potential  of  drift  measurements,  it  is  necessary  to  develop 
the  capacity  to  do  24-hour  observations,  leading  to  knowledge 
about  the  diurnal  and  seasonal  variations  in  drift  motion. 

With  the  recent  advances  in  computer  technology  (in  particular 
the  development  of  microchips  with  greater  memory  capabili¬ 
ties),  it  has  been  possible  for  ULCAR  to  incorporate  Doppler- 
drift  measurements  as  a  standard  feature  in  its  Digisonde.4 
The  raw  drift  data  is  stored  on  magnetic  tape,  to  be  inter¬ 
preted  later  by  computer  analysis.  This  thesis  is  a  report 
on  the  development  of  computer  algorithms  by  the  author  for 

4The  Digisonde  is  a  digital  ionospheric  sounder  devel¬ 
oped  by  ULCAR.  See  section  1.5.2. 


calculating  the  speed  and  direction  of  drift  motion.  In  view 
of  the  future  goal  of  making  24-hour  drift  observations,  it 
was  necessary  to  develop  a  method  of  computing  drift-velocity 
vectors  in  a  completely  automatic  fashion,  eliminating  the 
need  for  separate  visual  inspection  of  the  raw  drift  data,  or 
hand-plotting  of  the  calculated  vectors.  This  was  achieved 
by  the  reduction  of  systematic  errors  and  by  appropriate  aver 
aging  and  smoothing  techniques;  and  by  incorporating  into  the 
drift-calculation  program  an  output  format  which  plots  the 
drift  direction  and  the  drift  speed  as  a  function  of  time  on 
two  side-by-side  graphs.  Doppler-drif t  measurements  from  a 
period  of  several  hours  at  night  were  used  to  calculate  the 
F-layer  drift  in  fifteen-minute  intervals  over  Goose  Bay, 
Labrador;  the  results  compared  favorably  with  drift  measure¬ 
ments  made  by  other  observational  techniques. 

C 

1.3  Discovery  and  Early  Investigations  of  the  Ionosphere 


1.3.1  Early  History 

Until  the  early  1900’s  observations  of  the  atmo¬ 
sphere  were  limited  to  measurements  (chemical  composition, 
pressure,  temperature,  geomagnetic  field)  of  the  region  below 
30  km  (the  highest  that  balloons  could  ascend  to)  and  to  a  few 
observations  of  natural  phenomena  occurring  at  higher  heights. 
Theoretical  investigations  of  the  air  friction  required  for 
meteors  to  burn  up  gave  an  indication  of  the  density  of  gases 
in  the  region  of  100  km;  spectral  analysis  of  auroral  light 
revealed  some  information  about  the  chemical  composition  in 
the  same  region.  From  the  temperature  dependence  of  the  ve¬ 
locity  of  sound,  the  temperatures  at  heights  above  30  km  were 
deduced  from  experiments  with  sky-wave  sound  transmissions. 
From  the  gas  laws  and  principles  of  photochemistry,  and  what 


Ratcliffe  (1970),  Chapters  1  and  2. 


was  known  of  the  lower  atmosphere,  some  estimates  about  the 
physical  structure  and  chemical  composition  of  the  upper  atmo¬ 
sphere  were  extrapolated,  but  the  conclusions  were  limited 
and  not  very  accurate. 

Early  investigations  also  led  to  the  suspicion  of 
the  presence  of  charged  particles  in  the  higher  regions,  to 
account  for  the  aurora  and  for  the  minute  diurnal  variations 
in  the  earth's  magnetic  field.  It  was  thought  that  the  aurora 
was  caused  by  electrons  from  the  sun,  which  were  deflected  by 
the  geomagnetic  field  to  the  polar  regions,  where  they  pro¬ 
duced  an  effect  similar  to  the  electric  discharge  in  a  neon 
lamp.  Gauss  proposed,  in  1839,  that  the  fluctuations  in  the 
geomagnetic  field  could  be  explained  by  electric  currents  in 
the  atmosphere,  and  Stewart  developed  this  idea  further  in 
1882.  Stewart  postulated  a  dynamo  effect  due  to  tidal  motions 
of  the  atmosphere  across  the  earth's  magnetic  field,  result¬ 
ing  in  currents  at  those  heights  where  the  gas  pressure  is 
low  enough  for  the  gas  to  conduct.  When  it  was  later  realized 
from  laboratory  experiments  that  a  gas  at  low  pressure  con¬ 
ducts  only  if  first  ionized  by  some  external  agent,  it  was 
postulated  that  the  ionization  was  probably  brought  about 
during  the  day  by  particles  or  radiation  from  the  sun,  and 
persisted  through  the  night,  although  with  diminished  strength. 

1.3,2  Discovery  of  the  Heaviside  Layer 

In  1901,  Marconi  transmitted  a  radio  signal  beyond 
the  curvature  of  the  earth.  MacDonald's  revision  of  the  dif¬ 
fraction  theory  to  account  for  this  phenomenon  was  disproved 
by  Lord  Rayleigh.  Heaviside  and  Kennelly  independently  in¬ 
voked  the  notion  of  a  layer  of  ionized  gases  acting  as  a  re¬ 
flector  of  electromagnetic  waves.  The  reflecting  layer  was 
named  the  Heaviside  layer  by  Eccles  in  1912,  in  a  paper  on 
the  effect  of  an  ionized  layer  on  radio  transmission. 


After  the  development  of  commercial  radio  communi¬ 
cations  across  the  Atlantic  following  Marconi's  experiment, 
repeated  measurements  of  the  strength  of  long-distance  radio 
transmissions  manifested  diurnal  and  seasonal  variations  in 
the  attenuation  of  the  signals.  This  was  seen  as  evidence 
that  the  sun  probably  ionizes  the  upper  atmosphere:  the 
changes  in  signal  strength  could  be  explained  by  the  ioniza¬ 
tion  level  varying  with  the  inclination  of  the  sun's  rays.  A 
statistical  correspondence  was  also  observed  between  solar 
sunspot  activity  on  the  one  hand,  and  on  the  other  hand,  mag¬ 
netic  "storms”  (stronger-than-usual  variations  in  the  geomag¬ 
netic  field),  intensified  auroral  activity,  and  unusually 
strong  radio  reception  during  magnetic  storms,  possibly  re¬ 
sulting  from  intensified  ionization  at  the  reflection  level. 
Furthermore,  long-distance  communications  weakened  consider¬ 
ably  at  sunrise  and  disappeared  completely  after  a  few  hours, 
returning  only  at  night.  It  was  suggested  that  this  might  be 
due  to  increased  ionization  in  the  presence  of  solar  radia¬ 
tion,  ionization  which  penetrated  to  levels  below  the  reflect¬ 
ing  layer,  where  the  high  frequency  of  collisions  between 
charged  and  neutral  particles  (due  to  greater  particle  den- 
sity)  would  account  for  the  increased  absorption.  Scientists 
became  increasingly  convinced  that  the  sun  plays  a  key  role  in 
the  production  of  an  ionized  layer  which  determines  radio¬ 
propagation  conditions,  and  that  a  detailed  study  of  radio 
waves  reflected  off  this  layer  could  reveal  much  about  the 
charged-particle  distribution  and  about  the  sun  itself. 

The  phenomenon  of  fading  (fluctuations  in  signal 
strength  over  short  periods  —  a  few  minutes  or  less)  seemed 
to  indicate  the  possibility  of  reflecting  radio  waves  ver- 
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Later,  long-distance  communications  during  the  day  be¬ 
came  possible  with  the  use  of  higher  radio  frequen¬ 
cies,  since  there  is  less  absorption  at  higher 
frequencies . 


tically  off  the  Heaviside  layer.  If  trans-Atlantic  communica¬ 
tion  was  due  to  the  reflection  of  radio  waves  off  an  ionized 
layer  (not  everyone  accepted  this  explanation  in  the  early 
1920's),  these  waves  were  reflected  at  very  large  oblique 
angles.  However,  fading  was  observed  even  at  short  distances 
that  were  within  reach  of  the  ground  wave,  so  it  seemed  to  re¬ 
sult  from  the  interference  of  a  sky  wave  with  the  ground 
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wave;  this  sky  wave  would  have  to  be  reflected  at  a  sharp 
angle  of  incidence,  suggesting  that  even  vertical  reflections 
might  be  possible.  In  1924,  Breit  and  Tuve  in  America  tested 
this  hypothesis  by  transmitting  pulses  vertically,  and  suc¬ 
ceeded  in  picking  up  the  echoes  reflected  from  directly  over¬ 
head.  By  timing  the  return  time  of  each  pulse,  they  calcu¬ 
lated  the  height  of  reflection  to  be  about  100  km.  In  the 
same  year,  Appleton  and  Barnett  achieved  the  same  result  in 
England  by  varying  the  frequency  of  a  continuous  wave  and 
timing  the  return  time  of  the  echo  at  a  given  frequency. 

These  two  achievements  not  only  proved  the  existence  of  the 
Heaviside  layer,  but  also  opened  the  door  to  a  systematic  and 
quantitative  study  of  the  "ionosphere,"  as  it  later  came  to 
be  known. 

1.3. 2.1  Virtual  vs.  Real  Height 

The  height  of  reflection  calculated  by  Breit  and 
Tuve  from  the  return  time  of  the  echo  is  called  the  "virtual" 
height.  The  difference  between  virtual  height  and  the  real 
height  is  explained  as  follows.  The  height  at  which  a  radio 
wave  of  a  given  frequency  is  reflected  depends  on  the  density 
Ng  (number  density,  or  concentration)  of  free  electrons.  The 
wave  is  reflected  at  the  level  where  its  frequency  f  is  equal 
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Fading  can  also  result  from  the  interference  between 
sky  waves.  See  section  1.7.1. 


The  densit 
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to  the  so-called  "plasma  frequency,"  (fp  ~  /Ng ) . 
of  ionization  in  the  upper  atmosphere  increases  with  height 
up  to  the  level  of  the  peak  electron  density.  Higher  frequen 
cies  penetrate  deeper  into  the  ionosphere  before  reaching  the 
level  where  the  density  is  sufficient  for  reflection;  if  the 
wave  frequency  is  greater  than  the  plasma  frequency  of  the 
peak  electron  density,  the  wave  is  not  reflected  but  radiates 
into  space.  As  a  wave  travels  through  the  ionization  below 
the  reflection  level,  its  group  velocity  v  decreases.  The 
denser  the  ionization,  the  more  the  pulse  is  slowed  down. 

(In  fact,  vertical  reflection  occurs  because  at  the  level  of 
reflection,  v  becomes  zero:  the  wave  cannot  propagate  any 
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further,  so  the  energy  carried  by  the  radio  wave  is  reflected 
back  toward  the  earth.)  Since  the  speed  of  light  (in  vacuum) 
is  used  for  the  group  velocity  of  the  waves  in  calculating 
the  reflection  height  of  the  pulses,  the  calculated  or  vir- 
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tual  height  h'  is  greater  than  the  real  height  h. 

1.3.3  Discovery  of  the  Appleton  Layer 

By  using  successively  higher  radio  frequencies, 
Appleton  attempted  to  measure  the  highest  frequency  reflec¬ 
ted  by  the  Heaviside  layer,  from  which  he  could  calculate  the 
peak  electron  density  of  the  layer.  He  expected  that  frequen 
cies  above  the  "penetration  frequency"  would  radiate  into 
space,  but  instead  he  discovered  that  they  were  reflected 
higher  up  from  a  denser  layer  of  ionization.  This  layer  was 
at  first  called  the  Appleton  layer;  later,  the  Heaviside  and 
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See  the  discussion  of  the  magneto-ionic  theory  in 
section  1.5.1,  and  in  particular,  equation  (14). 
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The  real-height  profile  can  be  calculated  from  the 
virtual  heights  using  an  appropriate  inversion 
algorithm. 


Appleton  layers  were  renamed  the  E  and  F  layers,  respectively. 
The  region  below  the  E  layer  where  absorption  occurs  during 
the  day  was  called  the  D  region. ^  At  about  the  same  time, 
the  term  "ionosphere”  came  into  use  to  refer  to  the  entire 
ionized  region  of  the  atmosphere. 


1.3.4  Scientific  Investigation  of  the  Ionosphere: 

The  Ionosonde 

Subsequently,  Breit  and  Tuve  originated  a  system¬ 
atic  technique  for  investigating  the  ionosphere  by  develop¬ 
ing  the  "ionosonde"  (ionospheric  sounder),  an  apparatus  which 
plots  the  virtual  height  of  the  reflected  echoes  vs.  the  fre¬ 
quency  of  the  transmitted  signal,  as  the  frequency  is  in- 
creased.  The  resulting  plot  is  called  an  "ionogram."  From 
the  plasma  frequencies,  the  electron  densities  can  be  calcu¬ 
lated  as  a  function  of  height  up  to  the  level  of  the  F-layer 
peak,  which  is  typically  at  about  300  km  (real  height)  but 
can  vary  by  ±100  km  or  so.  The  electron-density  profile  above 
that  can  be  estimated  from  theoretical  considerations.  From 


^The  letters  E  and  F  were  chosen  because  the  electric 
field  reflecting  off  the  Heaviside  layer  had  origin¬ 
ally  been  labeled  E,  and  subsequently  the  field  re¬ 
flecting  off  the  Appleton  layer  had  been  labeled  F. 
This  choice  also  conveniently  left  room  for  labeling 
other  layers  in  alphabetical  order,  if  any  were  later 
discovered. 

■^D  region  rather  than  D  layer,  because  the  ionization 
in  that  region  does  not  form  a  layer  but  merges  into 
the  bottom  of  the  E  layer.  At  times,  however,  the  E 
layer  also  merges  into  the  F  layer,  so  that  the  dis¬ 
tinction  between  "layer"  and  "region"  is  not  strictly 
adhered  to.  We  can  also  speak  of  the  E  and  F  regions 
in  the  sense  of  the  height  ranges  at  which  the  E  and 
F  layers  are  found. 
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See  Figure  2  and  section  1.5. 2.1. 


records  of  the  time  variations  in  the  peak  densities  and  in 
the  heights  of  the  layers,  knowledge  about  the  diurnal  and 
seasonal  variations  in  ionospheric  structure  can  be  acauired. 

Soon  other  scientists  in  different  parts  of  the 
world  began  using  ionosondes  for  continuous  monitoring  of  the 
ionosphere.  The  ionosonde  became  the  most  widely  used  instru¬ 
ment  for  continuous  investigation  of  the  ionosphere.  "Al¬ 
though  complemented  by  many  newer  methods,  the  ionosonde  has 
not  been  supplanted  as  the  basic  tool  for  ionospheric  monitor- 
ing,  and  does  not  seem  likely  to  be."  It  is  relatively  in¬ 
expensive  to  set  up,  and  can  be  kept  in  operation  24  hours  a 
day  with  little  maintenance.  Other  observational  techniques 
measure  parameters  which  the  ionosonde  cannot  measure  (and  as 
such  the  importance  of  these  other  techniques  for  the  study 
of  the  ionosphere  should  not  be  underestimated),  but  their 
use  is  limited  because  of  much  higher  cost  (some  of  them  re¬ 
quire  the  use  of  rockets  or  satellites),  or  because  they  de¬ 
pend  on  the  sporadic  occurrence  of  natural  phenomena  (e.g. 
the  observation  of  meteor  trails).  Even  Thomson  scatter 
sounding,  which  can  measure  the  electron  density  at  all  heights 
and  a  variety  of  other  plasma  parameters,  is  much  more  expen¬ 
sive  than  ionosonde  sounding  because  it  requires  very  powerful 
transmitters  and  large  sensitive  antennas. 


1.4  Vertical  Structure  of  the  Upper  Atmosphere 
1.4.1  The  Ionosphere 

The  ionosphere  is  a  "shell"  of  naturally  occurring 
plasma  (ionized  gas)  which  surrounds  the  earth  in  the  upper 
regions  of  the  atmosphere,  where  the  atmospheric  density  is 
sufficiently  low  that  a  significant  number  of  positive  ions 
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Hargreaves 


(1979), 


p.  3  9. 
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and  free  electrons  (separated  under  the  influence  of  the  sun's 
energy)  do  not  recombine  but  remain  only  loosely  associated 
by  electrostatic  forces,  giving  the  ionosphere  the  electrical 
nature  characteristic  of  a  plasma.  Figure  l14  shows  typical 
electron-density  profiles  in  the  mid-latitude  ionosphere. 
Actual  profiles  are  characterized  by  many  temporal  and  geo¬ 
graphical  variations.1^  The  overlapping  E  and  F  layers  ap¬ 
proximate  the  shape  of  the  so-called  "Chapman  layers"  as  pre- 
dieted  by  Chapman  in  1931.  The  nose  of  a  Chapman  layer  (the 
region  near  the  height  of  maximum  electron  density)  approaches 
the  shape  of  a  parabola;  at  increasing  heights,  the  profile 
decays  into  an  exponential  tail.  (These  tails  are  not  shown 
in  Figure  1:  the  E-layer  tail  merges  into  the  F  layer;  the 
F-layer  tail  extends  into  the  magnetosphere,  beyond  the  range 
of  the  figure.)  Despite  several  simplifying  assumptions  made 
by  Chapman  in  his  deductions,  the  electron-density  profiles 
behave  approximately  as  predicted.  Historically,  observed 
profiles  have  been  compared  to  Chapman  layers,  and  major  de¬ 
partures  from  Chapman  theory  were  called  "anomalies." 

The  lower  border  of  the  ionosphere  is  considered  to 
be  the  height  at  which  the  density  of  free  electrons  is  suf¬ 
ficient  to  affect  radio  propagation;  this  height  is  somewhere 
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Taken  from  a  wall  chart  prepared  by  A.  L.  Carrigan 
and  R.  A.  Skrivanek,  Aerospace  Environment  (Hanscom 
Air  Force  Base,  Mass.:  Air  Force  Geophysics  Labora¬ 
tory,  1974),  Figure  13,  by  W.  Swider.  The  ratios  of 
free-electron  to  neutral-particle  concentrations  were 
added  by  the  present  author.  We  speak  of  electron- 
density  profiles  because,  even  though  the  ionosphere 
is  essentially  neutral  on  a  macroscopic  scale  (con¬ 
taining  approximately  equal  numbers  of  free  electrons 
and  positive  ions),  it  is  the  electrons  that  affect 
HF  radio  propagation. 
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See  Hargreaves  (1979),  Chapter  5. 
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Davies  (1965),  section  1.4  and  references  therein. 


DAY/NIGHTTIME  ELECTRON  CONCENTRATIONS 


between  50  and  80  km  (depending  when  and  where  it  is  measured). 
In  the  D  and  E  regions,  recombination  of  electrons  and  ions 
occurs  more  quickly  because  of  the  greater  density  of  gases; 
the  ionization  in  those  regions  is  more  closely  dependent  on 
the  inclination  of  the  sun’s  rays,  and  practically  disappears 
at  night.  In  the  E  region,  a  narrow  layer  of  dense  ionization 
called  the  sporadic  E  layer  (Es)  develops  occasionally.  The 
F  layer  can  differentiate  into  two  sub-layers  called  the  FI 
and  F2  layers  (see  the  two  daytime  profiles  in  Figure  1). 

This  differentiation,  which  is  sometimes  pronounced,  sometimes 
barely  noticeable,  occurs  during  the  days  of  the  summer  sea¬ 
son.  In  the  F  region  also,  a  phenomenon  called  Spread-F  can 
occur  in  the  evening  and  at  night.  Spread-F  manifests  itself 
on  ionograms  as  a  widening  of  the  trace,  indicating  reflec¬ 
tions  from  many  height  ranges  for  the  same  wave  frequency; 
this  effect  is  probably  due  to  patches  of  ionization  covering 
a  large  height  range. 

17 

1.4.2  The  Magnetosphere 

Beyond  the  F  layer,  the  electron  density  decreases 
exponentially  with  height.  (The  ratio  of  free  electrons  to 
neutral  particles  actually  increases,  but  the  total  atmospheric 
density  decreases  exponentially.)  In  a  broad  sense,  the  iono¬ 
sphere  (the  ionized  region  of  the  atmosphere)  extends  to  tens 
of  earth  radii;  however,  the  region  above  800  or  1000  km  is 
sometimes  referred  to  as  the  magnetosphere,  because  there  the 
geomagnetic  field  dominates  plasma  phenomena  in  determining 
the  motion  of  charged  particles:  i.e.,  the  energy  density  of 
the  geomagnetic  field  exceeds  the  plasma  energy  density. 

17 Hargreaves  (1979),  section  7.1. 
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The  earth’s  radius  is  approximately  6370  km. 


1.4.3  The  Solar  Wind 


Prior  to  the  advent  of  artificial  satellites,  what 
was  known  of  the  atmospheric  region  beyond  the  peak  of  the  F 
layer  was  limited  to  what  could  be  inferred  about  the  upper 
ionosphere  and  the  magnetosphere  from  ground-based  measure¬ 
ments  and  theoretical  considerations.  It  was  thought  that  be¬ 
yond  the  magnetosphere  and  up  to  the  sun’s  corona  (outer  atmo¬ 
sphere),  there  existed  a  vast  region  of  "empty  space,"  and 
that  the  influence  of  the  sun  on  the  earth’s  atmosphere  was 
limited  to  photon  radiation  and  occasional  streams  of  plasma. 
In  the  early  1950’ s,  it  was  suspected  from  observations  of 
meteor  trails  and  later  from  spectroscopic  measurements  of  the 
sun’s  corona  that  the  sun  emits  a  steady  stream  of  particles. 
Satellite  measurements  since  then  have  shown  that  the  sun’s 
corona  is  not  confined  to  a  limited  region  near  the  sun  but 
flows  continuously  outward  to  distances  far  beyond  the  earth; 
the  earth  is  immersed  in  a  sea  of  coronal  plasma,  which  has 
been  named  the  solar  wind.  The  solar  wind  is  pure  plasma, 

which  has  the  peculiar  property  of  "freezing-in"  the  sun's 
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magnetic  field  and  thus  extending  its  influence  to  the  re¬ 
gions  of  the  earth.  Since  it  is  much  easier  for  the  charged 
particles  from  the  solar  wind  to  propagate  along  the  earth's 
magnetic  field  lines  than  across  them,  and  because  of  the 
nearly-vert ical  incidence  of  the  geomagnetic  field  lines  at 
the  poles,  the  auroral  ionosphere  and  magnetosphere  are  es¬ 
pecially  prone  to  the  influence  of  the  complex  interactions 
between  the  solar  wind  (and  the  solar  magnetic  field)  and  the 
earth’s  upper  atmosphere.  The  exact  mechanism  of  how  the 
solar  wind  particles  enter  into  the  magnetotail  of  the  mag¬ 
netosphere  and  from  there  into  the  polar  ionosphere  is  the 
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Ratcliffe  (1970),  Chapter  7. 
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Hargreaves  (1979),  section  2.3.6. 


subject  of  current  research  and  goes  beyond  the  scope  of  this 
thesis . 

1.4.4  The  Dynamics  of  the  Ionosphere 

Variations  in  ionospheric  structure  are  a  function 
of  the  rate  of  change  of  plasma  density,  which  in  turn  depends 
on  the  ionization  rate,  the  recombination  rate,  and  the  loss 
(or  gain)  of  plasma  through  movement.  When  Chapman  calcu¬ 
lated  the  theoretical  shape  of  the  ionospheric  layers,  he  con¬ 
sidered  only  the  ionization  and  recombination  rates,  and  he 
made  simplifying  assumptions  about  the  nature  of  the  ionizing 
radiation,  the  gas  distribution  in  the  atmosphere,  and  the 
photochemical  processes  involved  in  the  ionization  of  the  var- 
ious  gases.  The  anomalous  behavior  of  the  ionosphere  can 
be  explained  in  part  by  correcting  these  simplifications;  but 
a  complete  picture  of  ionospheric  variations  requires  knowl¬ 
edge  of  plasma  motion,  from  which  the  scientist  attempts  to 
understand  the  forces  governing  the  large-scale  behavior  of 
the  ionosphere,  as  well  as  the  origins  of  these  forces.  In 

particular,  it  is  hoped  that  future  drift  measurements  at 
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Goose  Bay,  Labrador  will  provide  valuable  information  about 
the  effects  of  the  solar  wind  on  the  earth's  atmosphere. 


1,5  The  Ionosonde 

As  mentioned  above ,  a  large  part  of  our  knowledge  of 
the  ionosphere  before  1960  was  acquired  by  remote  sensing  with 
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Hargreaves  (1979),  section  4.2. 

^Davies  (1965),  sections  1.4.3  and  1.4.4. 
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Goose  Bay  is  located  about  25°  south  of  the  north 
geomagnetic  pole. 


ionosondes;  and  even  in  this  age  of  artificial  satellites, 
the  ionosonde  continues  to  play  an  indispensable  role  for  con¬ 
tinuous  ionospheric  monitoring. 
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1.5.1  The  Magneto-Ionic  Theory 

The  principles  of  ionosonde  operation  are  based  on 
the  reflection  properties  of  the  plasma.  Since  the  first 
suggestion  of  the  existence  of  an  ionized  atmospheric  layer  by 
Heaviside  and  Kennelly,  attempts  were  made  to  understand  how 
radio  waves  are  propagated  by  charged  particles  in  the  pres¬ 
ence  of  the  earth's  magnetic  field.  Appleton  and  Lassen  both 
developed  the  form  of  the  magneto-ionic  theory  in  common  use 
today. 


1.5. 1.1  Radio  Propagation  in  the  Ionosphere 

According  to  the  magneto-ionic  theory,  electrons 
in  the  ionosphere  oscillate  under  the  influence  of  the  elec¬ 
tric  field  of  the  transmitted  wave  and  then  re-radiate  wave¬ 
lets  of  energy.  The  influence  of  the  geomagnetic  field  causes 
the  oscillating  particles  to  gyrate  around  the  magnetic  field 
lines  under  the  influence  of  the  Lorentz  force  (see  equation 
(24)),  so  that  the  electrons  oscillate  in  a  curve  rather  than 
in  a  straight  line.  As  a  result  the  re-radiated  wavelets  ac¬ 
quire  a  rotating  polarization.  The  magneto-ionic  theory  shows 
that  only  waves  with  two  particular  polarizations,  called 
"characteristic"  polarizations,  can  propagate  in  the  iono¬ 
sphere:  for  the  major  part  of  the  globe  these  polarizations 

are  right-handed  and  left-handed  circular.  (Very  close  to  the 
magnetic  equator,  where  the  field  is  horizontal,  the  charac¬ 
teristic  modes  for  vertical  propagation  are  linearly  polarized 
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section  2.3. 
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waves,  parallel  and  perpendicular  to  the  magnetic  field.)  A 
linearly  polarized  wave  impinging  on  the  ionosphere  is  split 
into  these  two  characteristic  waves,  which  propagate  with 
different  velocities.  The  two  waves  are  called  the  ordinary 
(0)  and  extraordinary  (X)  waves. 

1. 5.1.2  The  Appleton  Formula 

The  speed  of  wave  propagation  in  the  ionosphere  is 
expressed  by  the  complex  index  of  refraction 

n  =  £-=y-ix  (1) 

where  c  is  the  speed  of  light  in  free  space,  v  is  the  phase 
velocity  of  the  transmitted  wave,  and  y  and  x  are  respectively 
the  real  and  imaginary  parts  of  n.  The  effect  of  x  can  be 
seen  by  expressing  the  wave  equation  for  vertical  propagation 
(along  the  z  axis)  in  the  following  form  (since  v  =  w/k;  here 
e  =  exp ) : 

V  -  T  i(tot-kz ) 

L  -  L  e 
o 

i[«t-(y-ix )  7r  z] 

=  Eo  e 


~X  ~  z  i  (wt-y  2-  z) 

=  Ec  e  c  e  c  (2) 

0) 

-X  2 

The  term  e  represents  a  decay  in  the  wave  amplitude.  In 

the  ionosphere,  the  index  of  refraction  takes  the  form  of  the 
so-called  Appleton  formula 


The  absorption  due  to  collisions  results  in  a  decrease  of  the 
wave  amplitude,  as  expressed  in  equation  (2).  Collisions  are 
significant  in  the  D  region;  but  since  D-region  absorption  is 
inversely  proportional  to  the  square  of  the  radio  frequency, 
waves  of  frequency  above  1  or  2  MHz  can  penetrate  into  the  E 
and  F  regions,  where  collisions  can  be  neglected,  so  we  will 
consider  only  the  real  part  of  n: 


=  1  - 


_ 2X  (1-X) _ 

2 (1-X )  -  Y  2  ±  ^Yt4  +  4 (1-X)2  Y, 


Just  below  the  ionosphere,  N  =  0  so  X  =  0  and  y2  =  1.  As  N 
increases  with  height,  y2  decreases.  When  y2  becomes  nega¬ 
tive,  the  index  of  refraction  becomes  a  purely  imaginary  num¬ 
ber;  the  wave  does  not  propagate  any  further  but  becomes  an 
evanescent  wave,  whose  amplitude  decays  rapidly.  For  wave 
propagation  in  the  ionosphere  then,  y  takes  values  between  1 
and  0.  At  y  =  0,  the  wave  cannot  propagate  further  but  is 
reflected  back  towards  the  earth.  If  the  direction  of  propa¬ 
gation  of  the  incident  wave  is  perpendicular  to  an  iso-density 
surface  (a  surface  of  equal  plasma  density),  the  wave  returns 
to  the  transmitter/receiver  site  and  its  virtual  height  or 
range  is  defined  by  the  travel  time  of  the  signal. 


1. 5.1.3  Conditions  of  Reflection 

Setting  y2  =  0  in  equation  (7)  and  solving  for  X, 
we  get,  with  the  +  sign, 

X  =  1  (I 

and  with  the  -  sign, 

X  =  1  -  Y  ( 


X  =  1  +  Y 


(10) 


Y2  =  Y  2  ♦  Y  2 


(11) 
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Note  that,  in  the  absence  of  the  magnetic  field  (Y^,  =  =  0) 

equation  (7)  becomes,  for  all  heights, 

y2  =  1  -  X  (12) 

which  also  yields  X  =  1  for  y  =  0  at  the  reflection  height. 
Thus,  one  of  the  magneto-ionic  waves  is  reflected  as  in  the 
absence  of  the  magnetic  field;  this  is  the  ordinary  wave. 

From  (4)  and  (8),  at  the  level  of  reflection. 


<o2  or 


f2 


(13) 


i.e.  reflection  of  the  ordinary  wave  occurs  at  the  level  where 
the  electron  concentration  is  such  that  f  =  9/IT,  which  is  why 
the  quantity  9/TT  is  called  the  plasma  frequency  f^.  Therefore 
we  rewrite  (8)  as 


fp2  =  f2  (reflection  condition  for  the  0  wave)  (15) 

The  reflection  condition  for  the  X  wave  is  expressed 
2  6 

by  equation  (9),  which  can  be  written,  using  the  definitions 
of  X  (equation  (4))  and  Y  (equations  (5)  and  (11)),  and  the 
gyrofrequency  f0  =  C0g/2iT, 

fB 

fp2  =  f2  (1  -  ■£— )  (reflection  condition  for  the  X  wave)  (16) 

To  compare  the  densities  at  which  the  0  and  X  waves  are  re¬ 
flected,  consider  (using  the  definition  (14)  of  f  ) :  from 

P 

(15),  the  0  wave  is  reflected  at  density 


2  6 

Equation  (10)  expresses  the  reflection  condition  for 
another  type  of  wave,  the  so-called  Z  wave,  which  is 
rarely  seen,  so  we  will  ignore  it. 


20 


and  from  (16),  and  noting  that  fg  <  f,  the  X  wave  is  reflected 
at  density 


f2  (1  -  pb  f2 

N  =  — srnrs - stitt  (18) 

For  a  given  radio  frequency,  the  density  required  for  reflec¬ 
tion  of  the  X  wave  is  less  than  for  reflection  of  the  0  wave; 
or,  for  a  given  N,  the  reflection  frequency  is  higher  for  the 
X  wave  than  for  the  0  wave.  For  both  ionograms  and  Doppler- 
drift  measurements,  it  is  the  0  wave  that  is  normally  used 
for  analysis. 


1.5. 1.4  Phase  Velocity  vs.  Group  Velocity 

From  equation  (1),  as  y  decreases,  the  phase  veloc¬ 
ity  v  increases  and  exceeds  the  speed  of  light.  This  does 
not  contradict  the  special  theory  of  relativity,  since  no  en¬ 
ergy  is  propagated  by  phase  motion;  it  only  means  that  in  the 
ionosphere  the  wavelength  is  greater  than  in  free  space.  En- 
ergy  transport  occurs  at  the  group  velocity  of  the  pulses;  in 
a  dispersive  medium  (where  each  frequency  component  of  the 
pulse  travels  at  a  different  speed:  n  =  n(o>),  which  is  the 
case  in  the  ionosphere;  see  equation  (3)),  the  group  velocity 
is  different  from  the  phase  velocity.  We  can  define  a  group 
index  of  refraction 


y  ' 


(19) 


where  v  is  the  component  of  the  group  velocity  in  the  direc- 

o 


tion  of  phase  propagation;  in  the  absence  of  a  magnetic  fir'1 
or  at  the  level  of  reflection  of  the  0  wave, 


or 


V 

=  _£ 

c 


(21) 


so  that  as  u  approaches  zero  the  group  velocity  approaches 
zero.  With  the  magnetic  field  and  below  the  level  of  reflec¬ 


tion  of  the  0  wave,  the  expression  for  yf  is  much  more  compli- 
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cated,  but  v  is  less  than  c  at  all  heights. 

o 


1.5.2  The  Digisonde  128PS 


ULCAR  has  developed  its  own  model  of  the  ionosonde, 

_ 3  _ T *  _  V.  *  3.. _ a  J  ‘  _  *  J n  ■ _ 3  2  8 _ 


the  Digisonde,  which  is  an  advanced  digital  ionosonde  capa¬ 
ble  of  measuring  and  recording  all  the  important  wave  param¬ 
eters  of  the  reflected  echo:  amplitude,  phase,  transmitted 
frequency,  Doppler  offset  due  to  the  motion  of  reflection 
areas,  incidence  angle  and  wave  polarization  (0,  X).  The  Dig¬ 
isonde  model  presently  in  operation  in  Goose  Bay,  Labrador 

(where  the  drift  measurements  discussed  later  were  made)  is 
2  9 

the  DGS  128PS,  which  implements  many  ideas  suggested  by  ex¬ 
perience  with  previous  models.  The  DGS  128PS  operates  in  two 
complementary  modes:  the  ionogram  and  drift  modes.  In  either 
mode,  digital  preprocessing  and  multiplexed  output  formatting 
reduces  the  data  to  manageable  size,  so  that  information  about 
all  the  wave  parameters  can  be  stored  on  digital  magnetic 
tapes,  from  which  particular  parameters  can  later  be  extracted 
for  special  research  studies. 


See  Davies  (1965),  equation  2.119. 


?  ft 

Ribl  and  Reinisch  (1978b). 
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Bibl  and  Reinisch  (1978a). 
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1.5. 2.1  The  Ionogram  Mode 

Figure  2  is  a  typical  ionogram  generated  at  Goose 
Bay  in  December  of  1981.  The  height-vs-frequency  trace  is  en- 
hanced  by  the  use  of  a  special  printing  format  called  the 
"Opti-Font"  (optical  font)  in  which  the  hexadecimal  numbers 
of  larger  value  are  more  prominent,  as  illustrated  in  the  two 
inserts  where  some  of  the  numbers  are  enlarged:  the  enlarged 
numbers  4,  6,  8  and  9  are  easily  recognizable;  the  thick  0 
represents  10;  and  the  other  enlarged  symbol  represents  11. 
Similarly,  recognizable  symbols  represent  all  numbers  from  0 
to  15,  permitting  the  printing  of  all  numbers  representable 
by  a  4  bit  binary  code  by  a  single  character  presentation. 

The  horizontal  scale  is  the  sounding  frequency  f  =  f  in  100 
kHz  steps  for  the  selected  band  of  frequencies;  the  vertical 
scale  is  the  virtual  height  in  increments  of  5  km,  starting  at 
60  km.  The  lower  ionogram  contains  the  amplitudes  correspond¬ 
ing  to  each  frequency-range  bin  (FRB);  in  order  to  improve 
the  signal-to-noise  ratio,  the  amplitudes  are  calculated  by 
integrating,  for  each  FRB,  the  echoes  of  several  pulses  (typ¬ 
ically  64  pulses;  the  number  is  varied  according  to  the  en¬ 
countered  level  of  radio  interference).  The  upper  amplitude 
trace  is  due  to  the  second  echo:  energy  returning  to  earth 
from  the  ionosphere  is  reflected  by  the  earth  back  to  the  ion¬ 
osphere,  from  which  it  returns  to  the  transmitter /receiver 
site;  since  the  travel  time  of  a  double  echo  is  twice  that 
of  a  single  echo,  the  lower  trace  is  partially  reproduced  on 
the  ionogram  at  twice  the  virtual  height.  For  each  FRB  in 
the  amplitude  ionogram  there  is  a  corresponding  status  number 
in  the  upper  ionogram,  which  provides  information  about  the 

^°Patenaude,  Bibl  and  Reinisch  (1973). 
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incidence  angle,  the  Doppler  shift  and  the  polarization 
(0,  X)  of  the  strongest  echo  for  each  FRB.  In  this  ionogram 
the  major  part  of  the  trace  is  from  the  F  layer;  only  a  small 
section  of  the  E  layer  shows  up,  the  E-layer  cusp,  from  2.5 
to  3  MHz  (other  numbers  are  due  to  noise;  energy  transmitted 
at  the  lower  frequencies  was  absorbed  in  the  D  region).  A 
cusp  is  formed  near  the  critical  frequency  (penetration  fre¬ 
quency)  of  each  layer  because  near  the  peak  of  the  layer  the 


pulse  stays  longer  in  a  region  where  p  is  close  to,  though 

32 


not  quite,  zero,  i.e.  the  pulse  travels  very  slowly  for  a 
relatively  long  time,  so  the  time  delay  of  the  echo  is  in¬ 
creased  much  more.  Of  the  two  F-layer  cusps,  the  one  at  the 
higher  frequencies  is  from  the  extraordinary  wave.  This  par¬ 
ticular  ionogram  is  a  vertical  ionogram;  oblique  ionograms 
(for  which  the  transmitting  and  receiving  antenna  arrays  are 
phased  for  maximum  radiation  at  an  oblique  angle  of  incidence) 
are  also  made  at  Goose  Bay  to  collect  more  specific  informa¬ 
tion  about  the  horizontal  electron-density  distribution. 


1.5. 2. 2  The  Drift  Mode 

Ionograms  provide  amplitude  information  for  all 
FRB’s  within  the  selected  limits  of  frequency  and  range,  but 
only  limited  information  about  the  incidence  angles  and  Dop¬ 
pler  frequencies  of  each  FRB.  In  the  drift  mode,  on  the  other 
hand,  only  3  or  6  FRB's  are  chosen  (FRB’s  with  echo  signals, 
as  determined  from  an  ionogram  made  immediately  prior  to  the 
drift  measurement);  integration  time  is  increased  (providing 
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Vertical  sounding  does  not  yield  only  vertical  but  also 
off -vertical  echoes  because  of  irregularities  in  the 
ionosphere.  See  section  1.6.1. 

32 

See  the  electron-density  profiles  in  Figure  1:  near 
the  peaks  of  each  layer  the  slope  increases  sharply, 
indicating  that  N  changes  much  more  slowly  with 
height . 


better  Doppler  resolution)  and  the  complete  discrete  complex 
Fourier  transform  (amplitude  and  phase)  of  each  signal  from 
the  four  receiving  antennas  is  recorded  on  magnetic  tape. 

Each  antenna  signal  is,  in  general,  a  composite  of  echoes  re¬ 
ceived  from  different  reflection  points  that  are  likely  to 
move  with  a  different  radial  velocity  component.  We  will 
elaborate  on  this  in  later  sections  below. 


1.6  Horizontal  Structure  of  the  Ionosphere 

3  3 

1.6.1  Horizontal  Density  Gradients 

If  the  ionosphere  were  spherically  symmetric  about 
the  earth,  isodensity  surfaces  above  a  given  site  would  be 
essentially  horizontal;  only  radio  waves  that  are  propagated 
vertically  would  be  reflected  back  to  the  site,  and  the  study 
of  horizontal  movement  in  the  ionosphere  by  the  analysis  of 
fading  records  or  the  measurement  of  Doppler  frequencies 
would  be  impossible.  There  would  be  no  fading  of  radio  waves, 
since  all  echoes  would  come  from  the  same  area  (directly  over¬ 
head)  and  would  therefore  all  be  in  phase;  and  since  the  Dop- 
pler-frequency  shift  imposed  on  reflected  waves  is  propor¬ 
tional  to  the  component  of  velocity  along  the  direction  of 
wave  propagation,  the  Doppler-drif t  method  would  measure  only 
vertical  motion. 

In  fact,  horizontal  density  gradients  do  exist  in 
the  ionosphere,  so  that  off-vertical  radio  waves  can  be  re¬ 
flected  back  to  the  transmitter/receiver  site  by  isodensity 
surfaces  that  are  perpendicular  to  their  direction  of  propa¬ 
gation.  The  density  gradients  are  due  to  small-scale  irregu¬ 
larities  (in  the  order  of  100's  of  meters)  and  large-scale 
travelling-wave  disturbances  (10* s  or  100's  of  kilometers). 

The  fading  of  radio  waves  and  the  preliminary  results  obtained 
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Hargreaves  (1979),  Chapter  6. 


from  ULCAR's  Doppler-drif t  measurements  (see  section  1.7. 2.1) 
give  evidence  of  the  existence  of  the  small  and  the  large  ir¬ 
regularities  in  both  the  E  and  F  regions.  F-region  irregular¬ 
ities  have  been  studied  with  ionosondes  and  by  observing  the 
fluctuations  ("scint illations” )  imposed  on  signals  from  radio 
stars  and  satellites;  they  have  also  been  measured  directly 
by  plasma  probes  placed  on  satellites.  The  large-scale  den¬ 
sity  gradients  fall  in  the  category  of  acoustic-gravity  waves, 
in  which  the  restoring  force  is  a  combination  of  compressional 
and  gravitational  forces  acting  on  the  neutral  air  particles; 
the  resulting  motion  is  imparted  to  the  charged  particles 
through  collisions.  These  waves  or  "travelling  ionospheric 
disturbances"  (TID's)  have  been  observed  in  the  distortion  of 
meteor  trails;  they  have  been  measured  by  ionosondes  (for  ex¬ 
ample,  by  continuous  observations  of  virtual  height  at  a  fixed 

3  lia 

frequency),  by  incoherent  scatter,  and  by  the  Doppler-drif t 
measurements  made  by  ULCAR. 


3  4 

1.6.2  Movement  of  Irregularities 

The  small-scale  irregularities  move  under  the  influ¬ 
ence  of  neutral  winds  and  electric  fields.  The  movement  of 

irregularities  implies  that  the  plasma  is  moving  as  a  body, 

.  3  5  . 

x.e.  both  electrons  and  positive  ions  are  moving  m  the 


Risbeth  and  Garriott  (1969),  section  4.2;  Ratcliffe 
(1972),  sections  7.1  and  7.2;  Hargreaves  (1979),  sec¬ 
tion  4.4. 

^ ^Techniques  for  the  Study  of  TID’s  with  Multi-Station 
Rapid-Run  Ionosondes  by  M.  G.  Morgan,  C.  H.  J.  Calderon 
and  K.  A.  Ballard,  Radio  Sci.  13,  4,  729-741,  Julv 
1978. 
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The  concentration  of  negative  ions  (neutral  particles 
to  which  free  electrons  have  attached  themselves)  is 
generally  negligible  in  the  E  and  F  regions.  See 
Rishbeth  and  Garriott  (1969),  p.  127. 


same  direction;  motion  in  opposite  directions  constitutes  a 
current ,  but  does  not  result  in  any  net  movement  of  the 
plasma.  The  mechanical  force  due  to  the  wind,  which  trans 
fers  momentum  to  the  charged  particles  through  collisions,  is 

?U  =  m  v  U  (22) 

where  m  is  the  particle  mass,  v  is  the  collision  frequency  at 
which  charged  particles  collide  with  neutrals  and  U  is  the 
wind  velocity.  The  electrical  force  is 

?E  =  e  E  (23) 
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where  e  is  the  particle  charge  and  E  is  the  electric  field 
vector. 


1.6. 2.1  Charged-Particle  Motion  in  the  Geomag¬ 
netic  Field 

To  determine  under  what  conditions  these  forces  re¬ 
sult  in  plasma  drift,  we  must  include  the  effects  of  colli¬ 
sions  and  of  the  earth's  magnetic  field.  We  consider  first 
the  Lorentz  force  ?B  exerted  by  the  magnetic  field  1?,  where  ^ 

?B  =  e  V  x  $  (24) 

is  the  velocity  of  the  charged  particle.  For  our  considera¬ 
tions,  we  choose  the  z  axis  along  the  field,  so  that  |^|  =  Bz 
and  there  is  no  Lorentz  force  in  the  z  direction.  A  charged 
particle  moving  in  the  x-y  plane  and  accelerated  only  by  the 
Lorentz  force  rotates  or  gyrates  around  an  axis  parallel  to 
the  z  axis  with  (angular)  gyrof requency  w, 

Mb 
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See  footnote  25  in  section  1.5. 1.2. 


(particles  of  opposite  charge  rotating  in  opposite  directions) 
To  illustrate  the  resulting  motion  when  there  is  also  an  ap¬ 
plied  force,  consider  a  particle  at  rest  at  the  origin  of  the 
coordinate  system,  to  which  is  applied  a  force  perpendicular 
to  the  magnetic  field,  say  along  the  x  axis.  We  consider  both 
the  electrical  force  F  C  j  E |  =  E  )  and  the  mechanical  force 

F  ( | U |  =  U  )  and  neglect  collisions  for  the  moment.  The 
X  U 

mechanical  force  F^  is  in  the  direction  of  +x  for  both  posi¬ 
tive  and  negative  particles,  but  the  Lorentz  force  is 
|  e |  V  x  "§  for  ions  and  -  |  e  [  V  x  "§  for  electrons.  Both  par- 
tides  will  start  off  in  the  +x  direction;  the  positive  icn 
will  curve  clockwise  into  an  arc,  coming  to  rest  at  some 
point  down  the  -y  axis;  the  electron  will  curve  counterclock¬ 
wise  and  come  to  rest  on  the  +y  axis;  F  impedes  any  further 
motion  of  either  particle  in  the  -x  direction.  The  motion  of 
each  particle  then  starts  over  again  with  an  identical  travel 

P 

path.  With  the  electrical  force,  F  is  |e|  E  for  ions, 

^  p  ^  T I 

-  j  e |  E  for  electrons.  Assuming  that  | F  |  =  |  F  ~,  |  ,  positive 
particles  follow  the  same  path  as  with  the  mechanical  force; 
negative  particles  start  off  in  the  -x  direction  and  curve 
counterclockwise  toward  the  -y  axis.  The  result  is  that  under 
the  influence  of  either  force,  both  positive  and  negative 
particles  drift  with  speed  F  / | e | B  in  a  direction  perpendic- 
ular  to  the  applied  force  and  to  the  magnetic  field. 


Strictly  speaking,  for  the  mechanical  force  we  must 
consider  the  limit  as  v  approaches  zero,  since  Fu  = 
mvU  is  zero  if  v  =  0;  as  will  be  shown  later,  the  re¬ 
sult  is  the  same  as  for  v  <<  w. 


5See  Figure  3,  adapted  from  Risbeth  and  Garriott 
(1969),  Figure  31,  p.  133.  The  subscripts  i  and  e 
refer  to  ions  and  electrons  respectively;  the  heights 
in  parentheses  are  the  approximate  heights  at  which 
the  stated  conditions  apply.  For  simplicity  of  il¬ 
lustration,  it  is  assumed  in  the  drawing  that  | Fu |  = 

|  FL|  ,  v.  =  v  and  co  /&> .  =  m . /m  =3  instead  of  1$4 . 


The  influence  of  collisions  on  the  above  motions  is 

also  illustrated  in  Figure  3;  it  is  assumed  that  the  charged 

particles  collide  with  neutral  particles  with  an  average  colli 

3  9 

sion  frequency  v,  and  start  from  rest  after  each  collision. 

A  component  of  particle  drift  is  introduced  in  the  direction 
of  the  applied  force,  at  the  expense  of  the  drift  perpendicu¬ 
lar  to  that  force,  as  expressed  in  the  following  equations 
(where  we  include  the  effect  of  an  applied  force  along  the 
magnetic  field): 


X 

rH 

1Z 

(26) 

*  k2  Fx 

(27) 

k0  Fz 

(28) 

1  0)V 

(29) 

I  e  I  B  2  .  2 

1  1  Z  V  +0) 

1  co2 

(30) 

1  e  1  B  2  .  2 

1  1  z  V  +u 

1  _  1  0) 

(31) 

mv  |  e  |  B  v 

where  the  quantities  w ,  v  and  m  are,  of  course,  different  for 
positive  ions  and  electrons.  The  signs  in  equation  (27)  indi¬ 
cate  opposite  results  for  positive  and  negative  particles: 
here  and  below,  the  upper  sign  refers  to  positive  ions;  the 
lower  sign,  to  electrons.  Along  the  magnetic  field,  the  wind 
causes  the  plasma  to  drift  at  velocity  U  : 


V 

z 


mvU 

_ z 

mv 


U 


z 


(32) 
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Or  "effective"  collision  frequency;  see  Risbeth  and 
Garriott  (1969),  section  4.12. 


CHARGED  -  PARTICLE  MOTIONS  IN  A  B  FIELD 
UNDER  THE  INFLUENCE  OF  ELECTRICAL  AND 
MECHANICAL  FORCES 


Figure  3 


whereas  the  electric  field  causes  a  current: 


V  = 
z 


±|e|E 

mv 


z 


(33) 


For  the  component  of  the  applied  force  perpendicular  to  the 
magnetic  field,  we  consider  two  special  cases.  Below  about 
7  0-75  km,  v  >>  co  for  both  positive  ions  and  electrons;  to  a 
first  approximation,  k.^  =  kg  >>  k2,  so  that  -  0  and 


V  = 
x 


F 


x 

mv 


(34) 


The  effect  of  the  magnetic  field  is  negligible:  the  wind 
carries  the  plasma  along  at  its  own  velocity. 
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mv 
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(35) 


and  the  electric  field  produces  a  current  parallel  to  itself, 


V 


E 

x 


±|e|E 
1  1  x 

mv 


(36) 


i.e.  the  results  are  the  same  as  along  the  magnetic  field.  At 
heights  above  180-200  km,  v  <<  u>  for  both  types  of  particles: 
ki  <<  k2  ~  1 / | e | Bz  so  Vx  1  0;  here,  the  wind  produces  a  cur¬ 
rent  perpendicular  to  itself  and  to  the  magnetic  field. 


mvU 

x 


(37) 


and  the  electric  field  causes  plasma  drift  perpendicular  to  £ 
and  to  B, 
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E 
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(+)(±) 


T^Tir 


(38) 


1 . 6 . 2 . 2  Summary 

Generally,  the  applied  force  can  be  in  any  direction 
In  the  D  region  of  the  ionosphere,  drift  is  due  to  the  wind, 


with  drift  velocity  given  by 


$U  =  5  (39) 

In  the  F  region,  the  field-aligned  component  of  drift  is  due 
to  the  neutral  wind,  with  velocity 


_  (£?*%)! 

B2 


(40) 


whereas  the  non-aligned  drift  is  caused  by  an  electric  field, 
and  its  velocity  is 


^  x  ^ 
B2 


(41) 


with  direction  perpendicular  to  the  plane  containing  E  and  B. 
In  the  E  region  (vg  <  <oe  but  >  oj^)  the  situation  is  more 
complex;  in  general  both  winds  and  electric  fields  can  produce 
drift  velocities  inclined  to  themselves,  electron  currents 
perpendicular  to  themselves,  and  ion  currents  parallel  to 
themselves. 


1.6.3  Plasma  Drift  in  the  F  Region40 

The  mechanical  forces  on  charged  particles  in  the 
ionosphere  are  divided  into  two  classes:  prevailing  winds, 
and  tides  (which  oscillate  with  a  period  related  to  the  24- 
hour  daily  cycle),  both  of  which  are  primarily  horizontal. 

The  mechanism  of  prevailing  winds  is  that  of  pressure  gradi¬ 
ents  coming  from  the  variation  of  solar  heating  with  latitude, 
balanced  by  the  Coriolis  effect  (as  in  the  lower  atmosphere); 
tides  (which  also  exist  in  the  lower  atmosphere)  are  due  pri¬ 
marily  to  the  gravitational  effects  of  the  moon  (as  in  the 
oceans — gravitational  tides)  and  to  the  temperature  differ- 


40 

Hargreaves  (1979),  section  6.4;  Rishbeth  and  Garriott 
(1969),  section  7.4;  Ratcliffe  (1972),  section  5.1. 


ences  between  the  day  and  night  sides  of  the  earth  (thermal 
tides),  because  of  solar  heating  on  the  day  side  through  ab¬ 
sorption  of  solar  radiation.  The  magnitude  of  the  currents 
which  can  flow  in  any  region  of  the  ionosphere  is  dependent 
on  the  conductivity  a,  which  in  turn  is  a  function  of  the 
charged-particle  density  N  and  of  the  ratio  v/co.  The  conduc¬ 
tivity  is  highest  in  the  E  region,  so  that  an  appreciable  cur¬ 
rent  flows  at  heights  of  about  110  km,  under  the  influence  of 
neutral  winds;  the  separation  of  charges  due  to  the  different 

ion  and  electron  drift  directions  (v  <  co  but  v.  >  co .  )  re- 

e  e  11 

suits  in  an  electric  field,  which  further  modifies  the 
charged-particle  motions.  Since  conductivity  is  greatest 
along  magnetic  field  lines,  which  are  oblique  over  most  of  the 
earth,  the  lines  act  as  conductors  between  the  E  and  F  re¬ 
gions;  thus  (at  low  and  middle  latitudes)  the  electric  field 
pattern  of  the  E  region  is  reproduced  in  the  F  region,  which 
results  in  F-region  plasma  drift.  The  E  region  is  referred 
to  as  the  dynamo  region,  and  the  F  region  is  compared  to  a 
motor  driven  by  the  dynamo.  In  the  polar  regions,  F-region 
plasma  drift  is  believed  to  arise  from  magnetospher ic  ef¬ 
fects  rather  than  from  the  neutral  winds  of  lower  altitudes. 
Several  theories  have  been  proposed  to  explain  the  interaction 

4  2 

of  the  polar  magnetosphere  with  the  ionosphere.  It  is  be¬ 
lieved  that  interaction  of  the  interplanetary  field  and  the 
solar  wind  with  the  magnetosphere  is  the  source  of  a  large 
scale  electric  field  across  the  magnetosphere,  which  maps 
down  to  F  region  heights  across  the  polar  cap,  driving  a  large 
plasma  convection  system.  Satellite  and  UHF  incoherent 


41 

See  Weber  and  Buchau  (1981). 

4  2 

Stern  (1977)  gives  an  extensive  review  of  the  various 
theories . 

4  2a 

Evans  et  al,  1980  and  references  therein. 


34 


V  V  V 


scatter  (Thomson)  radar  measurements  suggest  a  pattern  of 

plasma  drift  motion  over  the  polar  cap  from  the  day  side  to 

the  night  side,  with  sunward  return  flow  at  the  lower  lati- 

tudes,  as  shown  in  Figure  4.  Recent  measurements  made  at 

Thule,  Greenland  (86°  Corrected  Geomagnetic  Latitude)  with 

the  Digisonde  and  optical  systems  substantiate  this  flow  pat- 
43 

tern.  Measuring  this  convection  from  the  ground  at  Goose 
Bay,  one  would  expect  a  westerly  flow  of  plasma  prior  to  mid¬ 
night,  changing  to  an  easterly  flow  after  midnight.  As  will 
be  shown  below,  the  drift  velocities  calculated  from  the 
Doppler-drif t  data  collected  by  ULCAR  at  Goose  Bay  are  in 
agreement  with  these  predictions. 


1.6.4  Effects  of  TID's  on  Plasma  Motion 

The  oscillating  movement  of  plasma  under  the  influ¬ 
ence  of  acoustic-gravity  waves  reflects  the  phase  velocity  of 
a  disturbance  propagating  through  the  ionosphere  and  not  the 
true  convection  motion  of  the  plasma  as  a  whole,  somewhat  like 
ripples  from  a  local  disturbance  in  the  current  of  a  smoothly 
flowing  stream  of  water.  We  do  not  know  at  present  the  pre¬ 
cise  effects  of  this  ripple  motion  on  the  Doppler-drift  mea¬ 
surements.  As  is  typical  of  many  scientific  measurements,  we 
make  first  a  simple  model,  based  on  the  assumption  that  our 
measurements  reflect  predominantly  the  true  plasma  drift,  and 
we  use  a  statistical  approach  for  calculating  the  drift  veloc¬ 
ities,  in  order  to  smooth  out  the  errors  due  to  waves  and  to 
other  factors  discussed  later.  In  this  thesis,  we  are  at¬ 
tempting  only  to  prove  that  the  results  of  ULCAR' s  Doppler- 


4^Buchau  et  al.  (1982). 
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From  Spiro  et  al.  (1978),  Fig.  la.  See  also  Evans  et 

al.  (1982),  section  5.3. 


drift  measurements  are  a  step  in  the  right  direction,  so  that 
we  may  proceed  with  further  drift  measurements  and  thus  col¬ 
lect  a  data  base  for  more  extensive  analysis. 


1.7  Measurement  of  Plasma  Drift  in  the  Ionosphere 
1.7.1  Fading  Measurements4^ 

The  first  attempts  to  measure  ionospheric  plasma 
drift  were  made  by  studying  the  fading  of  radio  waves  reflected 
off  irregularities  in  the  ionosphere.  The  study  of  fading  is 
not  to  be  confused  with  the  incoherent  scatter  technique, 
where  the  radio  waves  are  scattered  off  electron  clusters 
smaller  than  the  wavelength  of  the  transmitted  wave;  since 
the  electrons  are  in  random  motion,  the  resulting  total  echo 
is  incoherent.  Fading  involves  specular  reflection  of  coher¬ 
ent  waves  off  ionospheric  irregularities  larger  than  their 
wavelength.  The  difference  in  the  path  lengths  of  the  coher¬ 
ent  echoes  from  various  directions  results  in  phase  interfer¬ 
ence  and  therefore  a  change  in  the  amplitude  of  the  signal  re¬ 
ceived  at  a  fixed  site.  As  the  irregularities  move,  the  phase 
differences  vary,  causing  the  amplitude  to  fluctuate.  At  a 
different  site  "downwind”  from  the  movement  of  the  irregular¬ 
ities,  the  corresponding  fluctuations  should  appear  at  a  time 
t  later,  where  t  depends  on  the  distance  between  the  tvo  re¬ 
ceiving  sites  and  the  speed  (on  the  ground)  of  the  diffraction 
pattern  produced  by  the  interference  of  the  several  echoes. 

To  measure  drift  in  any  direction,  a  minimum  of  three  re¬ 
ceivers  is  required  (usually  placed  at  the  corners  of  the 
right  triangle)  in  order  to  measure  both  components  of  the 
horizontal  drift  motion. 

In  a  paper  which  is  considered  a  classic  in  the 


u 

°Hargreaves  (1979), 


sections  6.2.1  and  6.3.1. 
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study  of  fading,  Briggs  et  al.  pointed  out  that  the  changes 
in  the  diffraction  pattern  are  due  not  only  to  the  motion  of 
the  irregularities  as  a  whole  (so  that  the  same  fading  pattern 
would  be  measured,  at  different  times,  at  several  spaced  re¬ 
ceivers  --  "similar  fade")  but  also  to  random  motions  of  the 
irregularities  relative  to  each  other  (so  that  the  shape  of 
the  fading  pattern  would  vary  between  sites).  They  also  dis¬ 
cuss  how  to  calculate  the  rate  at  which  the  pattern  is  chang¬ 
ing  and  the  velocity  with  which  the  pattern  moves  over  the 
ground.  These  calculations  involve  a  statistical  correlation 
analysis  of  the  fading  records  measured  by  three  (or  more) 
spaced  receivers;  several  techniques  of  correlation  analysis 

were  subsequently  developed  in  the  1950's  and  60' s  by  various 

..  47 

authors . 

1.7.2  Doppler-Drift  Measurements 
1.7.2. 1  History 

By  the  late  1960's,  the  insufficiency  of  the  fading 

technique  was  becoming  apparent.  W.  Pfister  of  AFGL  published 
48 

a  paper  in  1971  in  which  he  introduced  the  concept  of  adding 
phase  measurements  to  HF  radio  sounding  and  using  Doppler 
analysis  to  distinguish  several  signals  reflected  simultan¬ 
eously  off  a  moving  ionosphere,  an  approach  which  "allows  to 
look  at  the  distribution  of  rays  as  they  emerge  from  the  iono¬ 
sphere  and  not  merely  at  the  diffraction  pattern  on  the 

46 

Briggs,  Phillips  and  Shinn  (1950). 

47 

For  a  summary  of  the  four  major  techniques  developed 
before  1960,  see  Sales  (1960),  Appendices  A,  B,  C,  D. 
For  further  references,  see  Pfister  (1971),  p.  999. 

48Pfister  (1971). 
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ground."  The  paper  is  a  report  on  results  obtained  for  E- 
layer  measurements  made  in  1967  and  1969  in  Eillerica,  Mass., 
in  cooperation  with  ULCAR  personnel  and  using  phase-recording 
instrumentation  developed  by  ULCAR.  Analysis  of  the  data 
showed  evidence  of  both  wave  motion  and  motion  of  irregulari¬ 
ties  in  the  ionosphere.  Also,  a  limited  number  of  discrete 
reflected  signals  were  measured,  disproving  the  assumption  of 
Briggs  et  al.  that  the  diffraction  pattern  on  the  ground  is 
produced  by  a  random  distribution  of  many  irregularities  in 
the  ionosphere. 

In  succeeding  years,  personnel  from  ULCAR  and  AFGL 
continued  the  collaborative  work  of  improving  the  Doppler 
method  for  measuring  drift.  The  bibliography  lists  several 
publications  which  describe  the  progress  in  the  development 
of  the  instrumentation  and  measurement  techniques.  We  note 
in  particular  the  measurements  of  E-layer  ionospheric  motion 
made  at  Eglin,  Florida,  and  of  F-layer  motion  at  Goose  Bay, 
Labrador,  in  the  early  1970's.  Narrow  reflection  regions 
were  observed,  which  changed  position  at  a  different  rate 
than  indicated  by  the  Doppler  shifts.  This  change  in  posi¬ 
tion  seemed  to  be  controlled  by  medium-  and  large-scale 
TID's:  as  the  wavelike  structures  moved  over  the  observa¬ 

tion  site,  the  portion  of  the  ionosphere  satisfying  the  per¬ 
pendicularity  condition  changed  position.  The  Doppler  shifts, 
on  the  other  hand,  indicated  a  movement  of  the  reflecting  ir¬ 
regularities  independent  of  the  wave  motion,  and  probably  due 
to  a  large-scale  convection  of  the  plasma. 

The  method  of  analysis  used  in  interpreting  the  data 
from  the  Doppler-drift  measurements  involves  a  Fourier  trans- 


49Ibid . ,  p.  999. 
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Bibl  et  al.  (1975). 


form  from  the  time  domain  into  the  frequency  domain  to  deter¬ 
mine  the  Doppler  spectrum.  Calculation  of  the  transform  con¬ 
sumed  too  much  computer  time,  so  in  order  to  develop  the  capa¬ 
bility  for  the  rapid  analysis  required  for  24-hour  observa¬ 
tions,  a  hardware  transform  had  to  be  designed  which  could 
perform  the  spectral  analysis  as  the  drift  data  was  collected. 
This  has  become  possible  in  recent  years  due  to  the  advance¬ 
ment  of  hardware  memory  technology. 

1.7. 2. 2  The  Present 

The  on-line  Fourier  transform  and  other  improvements 
based  on  past  experience^  have  been  incorporated  into  the 
DGS  128PS,  which  is  in  operation  at  Goose  Bay.  The  primary 
function  of  the  Digisonde  at  present  is  to  monitor  the  diurnal 
and  seasonal  variations  in  ionospheric  structure,  but  it  is 
also  equipped  with  the  capability  for  Doppler-dr if t  measure¬ 
ments.  This  capability  is  not  yet  fully  automatic,  but  re¬ 
quires  the  presence  of  a  skilled  operator.  ULCAR  personnel 
occasionally  travel  to  Goose  Bay  for  specialized  scientific 
experiments,  and  during  the  past  few  years  they  have  on  those 
occasions  made  drift  measurements  from  which  to  calculate  the 
drift  velocity.  After  considerable  efforts,  which  revealed 
technical  problems  in  the  data  and  led  to  their  correction,  a 
limited  data  base  of  correct  data  was  collected;  analysis  of 
these  data  is  discussed  below. 

^Including  the  addition  of  a  fourth  (center)  antenna  to 
the  triangular  receiving  array,  so  as  to  be  able  to 
distinguish  signals  reflected  from  two  distinct  areas 
with  the  same  Doppler-frequency  shift.  See  section 
2.4.3. 


2.0  EXPERIMENTAL  PROCEDURE 


2 . 1  Summary 

For  Doppler-dr ift  measurements  at  Goose  Bay,  Digi- 
sonde  operation  is  alternated  between  the  ionogram  and  drift 
modes  (see  section  1.5.2).  The  ionograms  scan  the  relevant 
frequency  range  from  1  to  16  MHz  and  sample  the  virtual  height 
from  60  to  700  km.  Three  or  six  frequencies  and  correspond¬ 
ing  echo  ranges  are  selected  from  the  ionograms  for  the  drift 
52 

measurements.  Doppler-shifted  echoes  from  moving  iso¬ 
density  areas  that  are  perpendicular  to  the  direction  of  wave 
propagation  are  received  at  four  antennas  (see  Figure  5). 
Spectral  analysis  of  the  composite  signal  received  by  each 
antenna  yields  the  amplitude  and  phase  of  each  echo;  from  the 
amplitudes  and  phases  the  frequency-wavenumber  power  density 
(FWPD)  calculation  determines  the  incidence  angle  of  each 
echo.  Since  the  range  R  is  known,  the  angles  of  incidence  of 
the  echoes  determine  the  positions  of  the  various  reflection 
areas.  The  coordinates  of  the  reflection  areas  are  displayed 
on  a  sky  map;  they  are  also  used,  together  with  the  corre¬ 
sponding  Doppler  frequencies,  to  determine  the  radial  compo¬ 
nent  of  motion  of  each  reflection  area,  from  which  a  resultant 
plasma-drift  velocity  is  calculated. 


52 

There  are  five  drift  programs  available  in  the  drift 
mode  of  the  DGS  128PS.  The  number  of  sounding  fre¬ 
quencies  (and  ranges)  used  for  drift  measurements,  as 
well  as  other  parameters  defined  below  such  as  the 
number  N  of  quadrature  samples,  the  time  6t  between 
quadrature  samples,  etc.  ,  vary  according  to  the  pro¬ 
gram  used.  The  values  of  these  parameters  for  each 
drift  program  will  be  specified  in  section  2.2.1. 


\  W 


2.1.1  The  Time  Sequence 


Each  reflection  area  is  considered  the  source  of  a 
separate  radio  signal  with  propagation  vector  k.  Because  the 
distance  from  the  antenna  array  to  the  sources  is  much  greater 
than  the  antenna  separation,  the  wave  at  the  antenna  array 
can  be  considered  a  plane  wave,  so  that  the  incidence  angle 
of  £  is  the  same  at  all  antennas.  The  instantaneous  voltage 
at  each  antenna  due  to  a  given  source  is 

V  (t)  =  Vn(s)  cos  [  (<o  +  Ato  )t  +  4  ]  (42) 

a.  9  S  U  S  d.  )  S 
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X  =  |  (48) 

where : 

a  is  the  antenna  index; 
s  is  the  source  index; 

VQ(s)  is  the  amplitude  or  maximum  voltage  of  the  signal 
from  source  s; 

the  argument  of  the  cosine  is  the  phase  of  the  signal 

from  source  s  received  at  antenna  a,  4  being  the  time 

a ,  s 

independent  component  of  the  phase; 

f  is  the  frequency  of  the  transmitted  wave  (carrier 
frequency ) ; 

Af  is  the  Doppler  shift  or  change  in  carrier  frequency 
s 

due  to  the  motion  of  source  s; 


t  is  the  time; 


k  is  the  wave  propagation  vector  for  the  signal  from 
s 

source  s; 

5  3 

X  is  the  wavelength  of  the  carrier; 
c  is  the  speed  of  light  in  vacuum; 

?  is  the  position  vector  of  source  s  relative  to 

d)  S 

antenna  a; 

is  the  initial  phase  of  the  signal  at  source  s. 


The  phase  term  k  is  different  at  each  antenna  (see 

S  a  ^  S 

Figure  6): 
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where  the  magnitude  of  R,  is  the  range  R  and  its  direction 

i  j  s  ~  + 

is  given  by  the  unit  source  position  vector  R  ;  r  is  the 

s  a  ^ 

position  vector  of  antenna  a  relative  to  antenna  1  (r^  =  0; 

see  Figure  5).  V  (t)  differs  from  V  ,  (t)  only  in  the 

->  ->.a ,  s  a  ,  s 

terms  k  *r  ,  k  »r  .  (a  i  af):  the  signal  from  a  given  source 
is  the  same  at  all  antennas  except  for  a  constant  phase  dif¬ 
ference,  which  is  a  function  of  the  wavelength  of  the  signal 

(|k  |  =  2tt/X),  the  antenna  separation  r  -  r  ,,  and  the  in- 
s  3  A  a. 

cidence  angle  of  the  source  represented  by  R  .  Since  the 

s 

wavelength  and  the  antenna  separation  are  known,  the  incidence 
angle  can  be  calculated  if  <J>  is  known  for  all  antennas, 

3  ^  S 

as  will  be  shown  later. 
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Using  X 

of  about 


c/f  instead  of  c/(f+Af  )  results  in  an  error 
10-<'  m,  which  can  be  neglected. 


With  several  sources,  the  total  signal  V  (t)  at  an 

<3. 

tenna  a  is  the  sum  (superposition)  of  the  reflected  signals, 
V  (t)  =  T  V  (t)  =  y  Vn(s)  cos  [  (co+Aw  )t  +  <p  ]  (52 

^  a  C  ^  1 1  C  ^  cr 


s=s,,s,,,s,,,,...  (53 

V  (t)  =  V  (M  (t ) ,  4>  (t))  (54 

3  a.  a. 

where  the  sum  is  over  all  sources;  M  (t)  is  the  magnitude 
(time-varying  amplitude)  of  the  composite  signal  at  time  t, 
and  $  (t)  is  its  phase. 

At  each  antenna  the  composite  analog  signal  V  (t) 

3 

is  sampled  N  times  at  intervals  6t,  i.e.  at 

t  „  tx  „  .  N  N  N  .  „  N  ,  ,  c  c 

~  n  ut  j  n  ~  *  ^  ’  1 )  “  ^  ^  2  ^  •  •  •  9  "jsp  “  1  •  C  5  5 

Each  sample  consists  of  two  measurements  X  and  Y  obtained  bv 

54 

quadrature  sampling, 

X  (t  )  =  V  (t  )  =  l  Vn(s)  cos[(o)  +  Acu  )  t  +  <b  ]  (56 

an  an  ^  0  s  n  a ,  s 

s 

Y  (t  )  =  -  V  (t  +  5—)  =  7  Vn(s)  sin[(co  +  Aa>  )  t  +  4>  ](57 

an  an  2oj  L  0  sn  a,s 

s  * 

Sw  =  i  (58 

x  =  I  =  2n  (59 

f  w 

where  x  is  the  period  of  the  carrier  wave.  X  and  Y  are  re¬ 
lated  to  the  amplitude  M  and  phase  $  of  equation  (54)  by 


M  =  /X2  +  Y2 


S>  =  arctan  — 
X 


In  the  phase  of  Y,(tri),  we  are  neglecting  the  term 
7T  Aw  /2w  :  10'6  7tf  2  .  n 


The  quadrature  samples  are  measured  in  phase  with 
the  carrier,  i.e. 


fit  =  mx 


2  mu 

<Ji 


(62) 


(where  m  is  an  integer),  which  effectively  filters  out  the 
carrier  frequency:  remembering  that  t  =  n  fit  (equation 


(55)), 

cost  (w  +  Aw  )  t  ]  =  cos[((d  +  Aw  )  (63) 

s  n  s  w 

=  cos  A  a)  t  (64) 

s  n 

and  similarly  for  sin[(w  +  Aw  )  t  ]:  therefore 

s  n 

X  (t  )  =  l  Vn(s)  cos(Aw  t  +  <J>  )  (65) 

an  0  sn  a ,  s 

s  7 

Y  (t  )  =  7  Vn(s)  sin(Aw  t  +  <j>  )  (66) 

an  “  0  sn  a,  s 


The  result  is  a  digital  time  sequence  which  represents  a  sig¬ 
nal  whose  frequency  components  are  the  frequencies  of  the  Dop¬ 
pler  shifts  only. 


2.1.2  The  Frequency  Spectrum 

As  the  quadrature  samples  are  measured,  they  are  in¬ 
putted  in  real  time  into  a  hardware  processor  which  performs 

55 

a  direct  discrete  Fourier  transform  with  Hanning  weighting 

5  6 

by  spectral  averaging,  to  reduce  the  sin  x/x  ringing  and 
noise.  For  each  spectral  line  of  frequency  w^, 

w^  =  d  fiw  (67) 

^Bibl  and  Reinisch  (1978b),  p.  527  . 

5  6 

See  section  2.2.3  for  references. 
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d  =  d’  ,  d",  d *  f  ' 


(68) 


(where  6co  is  the  angular  Doppler-f requency  resolution  of  the 
transform,  and  d  is  an  integer,  whose  numerical  values  will  be 

specified  in  section  2.2.1),  the  Fourier  transform  is  defined 

57 

as 


N/2-1 


F  (d)  =  y  f  (n)  e 

a 


•  2ir  , 
-i  jp  dn 


(69) 


n=-N/2 


i  (D  6a  n  6t  +  4>  ) 

f  (n)  =  X  ( t  )  +  i  Y  (t  )  =  l  Vn(s)  e  S  a,S 

^  an  an  ^  n 


(70) 


D  6o>  =  Ao) 
s  s 


(71) 


where  we  have  formed  a  complex  time  sequence  from  the  quadra¬ 
ture  measurements  (X,Y);  in  the  time  sequence  (70)  the  Doppler 

shift  A  a)  due  to  the  motion  of  source  s  is  written  in  terms 
s 

of  the  Doppler-frequency  resolution. 

To  illustrate  the  result  of  equation  (69),  consider 

two  sources  s'  and  s’’.  If  D  ,  and  D  ,,  are  integers, 

s  s 


D  .  =  d* 

s ' 


(72) 


D  ,  ,  =  d 1 

s '  1 


(73) 


then 


All)  ,  :  D  ,  6(1)  :  0),,  =  d* 


(74) 


Aw  ,i  =  D  ,  ,  =  u o|  i  =  d*  »  6co 


(75) 


where  d'  and  d,f  are  two  different  Doppler  numbers,  and- 


See  section  2.2.2  for  references. 


See  section  2.2.2  for  the  derivation  of  these  results. 
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yielding  the  amplitude  and  the  time-independent  phase  of  the 

signal  from  each  source.  In  general  the  Doppler  shifts  are 

not  integral  multiples  of  <$m,  and  F  (d  *  )  and  F  (d,f)  are  modu- 

a  a 

lated  by  the  sin  x/x  ringing  due  to  the  limited  sample  length 
of  the  time  sequence;  Hanning  weighting  is  applied  to  the  fre¬ 
quency  spectrum  to  reduce  both  the  ringing  and  extraneous 
noise.  Note  that  if 

Ds,  =  -  Ds,,  (78) 

equations  (76)  and  (77)  still  hold  (for  integer  D  ):  the  com¬ 
plex  Fourier  transform  distinguishes  positive  and  negative 
frequencies.  In  the  present  context,  negative  frequencies 
have  a  physical  significance;  they  follow  mathematically  from 
the  discrete  quadrature  sampling,  which  filters  out  the  car¬ 
rier  frequency  (see  equations  (65)  and  (66)).  Negative  Dop¬ 
pler  frequencies  correspond  to  a  decrease  in  carrier  frequency 
due  to  motion  of  the  source  away  from  the  observation  site; 
positive  Doppler  frequencies  correspond  to  an  increase  in 
carrier  frequency  due  to  motion  toward  the  observation  site. 

2.1.3  Sky-Map  Calculations 

A  scanning  method  is  used  to  determine  the  incidence 
angle  of  each  echo.  The  area  of  the  sky  above  the  observation 
site  is  represented  by  a  square  sky  map,  with  the  corners  of 
the  map  area  at  range  R  and  with  the  maximum  zenith  angle 
C  „  (at  the  corners)  defined  so  as  to  exclude  from  the  sky 
map  the  major  side  lobes  which  follow  from  the  periodicity  of 
the  FWPD  calculation  (the  major  side  lobes  have  the  same 
strength  as  the  main  lobe).  In  section  2.4.2  we  will  show 
that 


(79) 


where  X  is  the  wavelength  of  the  sounding  frequency  and  L  is 
the  maximum  antenna  separation  in  the  receiving  array  (see 
Figure  5);  £max  is  limited  to  a  maximum  of  45°.  The  map  is 
divided  into  1681  locations  defined  by  a  41  *  41  array  of 


coordinates  (x  ,  y  ,), 
m’  Jm'  * 

x  =  m  <$x 

(80) 

m 

y  ,  =  mf  6y 

Jm'  J 

(81) 

6x  =  6y 

(82) 

m,  m'  =  0,  ±1,  ±2,  ...,  ±20 

(83) 

where  6x  is  a  function  of  R  and  C 

max 

Each  coordinate  (x  , 

m  * 

y  t )  defines  the  angle  of  incidence  of  the  scanning  vector 

k(x  ,  y  , )  whose  magnitude  is  the  same  as  that  of  k  (eauation 
m  m  S' 

(47)).  For  each  Doppler  number  d,  the  frequency-wave-number 

power  density  P  is  calculated  1681  times,  once  for  each  map 

coordinate  (x  ,  y  ,): 

m 7  J  m 


44  i  k(x  ,  y  , ) • ( r  -r  ,) 

P(d,  xm,  y  ,)  =  l  l  F  (d )  F;,(d)  e  m  m 
m  m  a=  1  a ?  =  1  a  a 


m' 


(84) 

where  *  denotes  the  complex  conjugate;  F  (d),  F  ,(d)  are  the 

cl  d 

frequency  spectra  (after  spectral  averaging)  of  antennas  a  and 
a  ;  and  r  ,  r  ,  are  the  antenna  position  vectors  relative  to 

cl  a.  *  V  ^  \ 

antenna  1.  The  factor  e1  xm’  ^m*  ra  introduces  a  computa¬ 
tional  phase  "delay"  in  the  signal  spectrum  from  antenna  a. 
When  k(xm,  ymi  )  looks  in  the  direction  of  the  echo  whose  Dop¬ 
pler  frequency  is  the  delayed  phases  of  that  echo  are 

equal  at  all  antennas,  which  makes  P(d,  x  ,  y  , )  a  maximum; 
thus  the  map  coordinates  (x  ,  y  , )  for  which  P  is  a  maximum 


indicate  the  direction  k  of  the  corresponding  source.  '  We 

s 

re-write  these  map  coordinates  as  the  source  coordinates 

(x  ,  yc )  =  (x  »  ym , ) 6 0  (8  5  ) 

s  s  m’  ■rm' 

and  define 

Ps  =  P (d ,  xg,  yg )  (86) 

as  the  power  density  of  source  s. 

Two  parallel  sky  maps  are  used  to  display  the  posi¬ 
tions  of  the  sources  calculated  in  this  manner:  one  map  dis¬ 
plays  the  power  densities  P  at  the  corresponding  source  coor- 

3 

dinates  (x  ,  y  );  the  other  map  displays  the  Doppler  numbers 
s  s 

d  at  the  same  coordinates  (see  Figure  17). 


2.1.4  Drift-Velocity  Calculations 

The  sky  map  data  (x,y,  d,  P)  for  all  sources 

s  s  s 

calculated  from  a  given  measurement  are  then  used  to  determine 

the  velocity  of  the  plasma  drift.  The  Doppler  shift  Af  due 

61  ® 

to  the  velocity  Vg  of  source  s  is 


Af 


s 


2 


$ 

s 


c 


f 


(87) 


5  9 

If  there  are  two  or  more  sources  whose  motion  results 
in  the  same  Doppler  shift,  the  FWPD  does  not  in  gen¬ 
eral  yield  the  correct  source  positions.  See  section 

2.4.3. 


6  0 

In  general,  since  the  sky  map  is  defined  by  a  set  of 
discrete  coordinates,  xs  is  only  approximately  equal 
to  xm  and  ys  is  only  approximately  equal  to  ym» ;  we 
use  the  equal  sign  with  the  understanding  that  the 
equality  is  within  the  limits  of  the  errors  due  to 
the  digitizing  of  continuous  functions. 


61 


See  section  2.5.1  for  the  derivation  of  (87). 


where  R  is  the  unit  source-position  vector,  f  is  the  sounding 
s 


frequency,  and  c  is  the  speed  of  light  in  vacuum.  Thus  the 


radial  component  W  of  the  source  velocity  is 


W  =  V  *R 
s  s  s 


,  Af 
1  s 


(88) 


It  is  assumed  that 


V  =  V,  all  s  (89) 

s 

that  is,  all  sources  for  a  given  measurement  or  case  (a  case 
is  typically  a  measurement  of  10  or  18  seconds;  see  Table  1) 
are  moving  at  the  same  velocity  V.  This  velocity  is  calcu¬ 
lated  using  a  least-square  fit  procedure:  the  average  square 
error  e2  is  defined  as 


where  w  is  a  weighting  factor  proportional  to  P  but  normal- 
S'  s 

ized  so  that  [  w  is  equal  to  the  total  number  of  sources.  By 
c  s 

setting  the  derivatives  de2/dV^,  9e2/8V^  and  3e2/3Vz  equal  to 

zero,  three  simultaneous  equations  are  obtained  from  which 

•  ,  , 

V  ,  V  and  V  are  calculated;  plugging  V  back  into  equation 
x  y  z 

(90)  yields  the  least  square  error. 

The  sources  for  a  given  case  are  sorted  in  descend¬ 
ing  order  of  the  magnitude  of  F  ,  then  equation  (90)  is  calcu¬ 
lated  several  times:  the  first  calculation  uses  only  the 
first  five  sources;  the  second  calculation,  the  first  six 
sources;  and  so  on.  Each  calculation  of  equation  (90)  is 
called  an  individual  velocity  calculation.  A  case  velocity  is 
calculated  as  the  median  of  the  individual  velocities;  the 
median  of  the  case  velocities  from  a  group  of  four  to  six  con- 
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Each  case 


secutive  cases  yields  the  group-norm  velocity, 
comprises  simultaneous  drift  measurements  at  three  or  six 
sounding  frequencies  (and  corresponding  ranges);  a  velocity 
called  the  all-frequency  velocity  is  also  calculated  as  the 
median  of  the  group-norm  velocities  which  correspond  to  the 
three  or  six  sounding  frequencies. 

The  calculated  drift  velocities  are  displayed  on 
two  parallel  graphs,  one  with  a  plot  of  the  horizontal  direc¬ 
tion  (azimuth  graph)  of  a  time  sequence  of  drift  velocities, 
the  other  with  a  plot  of  the  magnitude  of  the  horizontal 
drift,  the  vertical-drift  magnitude  being  indicated  by  a  +  or 
-  symbol  (see  Figure  22).  Graphs  of  the  individual,  case  and 
group-norm  velocities  were  used  for  analyzing  the  effects  of 
various  weighting  and  smoothing  techniques.  After  the  best 
approach  for  calculating  the  drift  velocities  had  been  deter¬ 
mined,  a  time  sequence  of  all  the  group-norm  and  all-frequency 
velocities  for  a  given  time  sequence  of  measurements  was 
plotted  on  one  pair  of  graphs,  the  direction  and  horizontal 
speed  of  the  group-norm  velocities  being  indicated  by  a  num¬ 
ber  or  letter  specifying  the  range  R  of  each  measurement,  and 
the  direction  and  horizontal  speed  of  the  all-frequency  ve¬ 
locities  being  indicated  by  a  solid  line  drawn  through  the 
corresponding  graph  coordinates  (see,  for  example,  Figure  24). 


2.2  Drift  Measurements  with  the  Digisonde  128PS 

2.2.1  Drift-Measurement  Parameters 

Five  drift  programs  are  provided  in  the  DGS  128PS, 
identified  by  the  program  number  P, 


The  expression  is  awkward  but  was  coined,  for  want  of 
a  better  term,  to  avoid  possible  confusion  with  the 
"group  velocity"  of  a  wave. 


with  different  drift  parameters  for  each  P  (see  Table  1). 

Drift  measurements  are  made  at  three  or  six  sounding  frequen¬ 
cies  as  follows.  The  Digisonde  transmits  four  100  psec  pulses 
5  msec  apart  at  the  first  frequency  (see  Figure  7)  and  re¬ 
ceives  with  each  of  the  four  antennas  successively,  measuring 
the  quadrature  samples  X  and  Y.  The  process  is  then  repeated 
for  the  other  sounding  frequencies.  After  the  measurements  at 
the  last  frequency,  the  process  starts  over  again  at  the  first 
frequency.  N  such  measurements  are  made,  yielding  a  time  se¬ 
quence  of  N  quadrature  pairs  (X,  Y)  for  each  sounding  fre¬ 
quency  at  each  antenna.  The  set  of  N  quadrature  measurements 
for  all  frequencies  and  antennas  comprises  one  drift  measure¬ 


ment  or  case. 


The  sample  spacing  St  (the  time  between  successive 
samples  at  a  given  antenna  and  given  frequency)  is 


St  =  (1.25  msec  +  5  msec  x  N  ) 

a  f 


(92) 


where  N  is  the  number  of  antennas  (four  at  Goose  Bay;  but 

cl 


the  DGS  128PS  provides  for  the  possibility  of  up  to  24  anten¬ 
nas  for  drift  measurements)  and  is  the  number  of  sounding 
frequencies.  At  Goose  Bay, 


St  =  21.25  msec  x  N, 


(93) 


which  gives  the  results  shown  in  Table  1. 

The  Fourier  transform  yields  a  spectrum  of  N  Doppler 
lines  (see  section  2.2.2)  of  frequency 


fd  =  d  «f 


(94) 


N  ,  H  .  N  . 

-  2  i  d  1  2  '  1 


(95) 


6f  =  nST 


(96) 
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SEQUENCE  OF  QUADRATURE  MEASUREMENTS 


a 


where  N  is  the  number  of  quadrature  samples.  Hanning  weight¬ 
ing  (see  section  2.2.3)  is  applied  to  the  frequency  spectrum 
in  either  of  two  ways.  For  drift  programs  5  and  8,  all  spec¬ 
tral  lines  are  kept  (the  antenna  index  is  omitted  in  the  fol¬ 
lowing  equations): 


F»(+0)  =  2  F(0)  +  F(l) 


(97) 


F* (-0)  =  2  F( 0 )  +  F( -1 ) 


(98) 


F»(d)  =  F(d-l)  +  2  F(d)  +  F(d+1) 


(99) 


d  =  ±1,  ±2,  ±3,  ...,  ±Cj  -  1) 


(100) 


where  F  is  the  spectrum  before  spectral  averaging  and  F*  is 

_ _ _ _  *  _  _  63  p _ 1  * _ _  \  I  /  n  n  \  i 


the  spectrum  after  averaging.  Equations  (97)  and  (98)  do 
not  follow  strictly  from  the  definition  of  Hanning  weighting, 
which  would  yield 


F(  +  0 )  =  F(-0 )  =  F(-l )  +  2F(0 )  +  F(1 ) . 


(101) 


Equations  (97)  and  (98)  were  adopted  in  order  to  distinguish 
between  positive  and  negative  frequencies  which  are  close  to 
zero.  For  drift  programs  6,  7  and  9,  only  the  odd  spectral 
lines  are  kept,  the  even  spectral  lines  being  used  only  in 
the  average , 


F'(d)  =  F(d-l)  +  2F(d )  +  F(d+1 ) 


(102) 


See  footnote  70  in  section  2.2.3. 


Note  that  in 


F*($r  -  1)  =  F(y  -  2)  +  2F(£  -  1)  +  F(|)  (103) 


the  third  term,  F(^-),  is  not  within  the  transform 
spectrum  (equation^ (95) ) ;  but  from  equation  (140), 


F(£)  =  F(-  Jj.) 


(104) 
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N 


d  =  ±1,  ±3,  ±5,  .  .  .  ,  ±(£  -  1) 


(105) 


The  result  is  that  for  these  three  drift  programs  the  spectral 
spacing  is  doubled,  the  number  of  spectral  lines  is  halved, 
and  the  lowest  Doppler  frequency  is  ±6f  instead  of  ±0.  The 
spectrum  for  all  five  drift  programs  can  be  summarized  as 

(106) 


±  [f0  +  ( 1 d |  -  1)  6f 1 ] 


N1 


d  =  ±1,  ±2,  ±3,  ...,  ±  j- 
where ,  for  programs  5  and  8, 


fo  -  0 


N*  =  N 
6f '  =  Sf 

and  for  programs  6,  7  and  9, 


fQ  =  6f 


N 


»  - 


N 


6f 1  =  28 f 


(107) 

(108) 

(109) 

(110) 

(111) 

(112) 

(113) 


N  and  <$f  are  as  defined  before  spectral  averaging,  but  note 
that  d  (equation  (107))  is  defined  differently  than  in  pre¬ 
vious  equations.  The  parameters  defined  in  this  section  are 
summarized  in  Table  1. 

2.2.2  The  Fourier-  Transform^ 

The  definition  of  the  Fourier  transform  used  in  the 
DGS  128PS  has  been  given  in  Equation  (69);  with  the  time  se¬ 
quence  (70)  the  transform  becomes 


\ 


m  \ 
£ 


65 


Peled  and  Liu  (1976),  section  1.7. 
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d 

l  V0 

s 

i  <p 
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S(s ,  d) 

(11 

S(s,  d) 

N/2-1  i[ (D  • 
=  I  e  s 

n=-N/2 

-d)  jp]  n 

(12 

-i[  (D  -d  )ir]  N-l  i[  (D  -d)  n 

l  e  s  N  (12 

n=  0 


where  (121)  is  a  geometric  progression  of  the  form 


-N/2  N;1  n  =  -N/2  r^l  . 

Jo  r-1  rl/2(r-1/2-r-1/2) 


(rN/2.r-N/2) 


so  that 


sin  (D  -d)  tt  -i(D  -d)tr/N 
S(s’  d)  =  sin  (Dg-d)  tt/N  6 


sin  (D  -d)  tt  -i  (D  -d)  tt/N 
~  M  s  s 

~  N  (D  -d)  tt  e 
s 


(12 


(12: 


(12' 


where  (125)  follows  from  the  approximation  for  small  angles 
sin  (D-d)  tt/N  ~  (D-d)  tt/N  (12 


The  Fourier  transform  must  be  evaluated  for  each 
value  of  d,  so  that  (114)  represents  a  sequence  of  N  equa¬ 
tions.  To  illustrate  the  result  of  calculating  the  transform, 
we  write  it  for  one  of  the  values  of  d,  say  d', 

1  *a  s' 

Fa(d*  )  =  V0(s'  )  e  a,S  S  (s  * ,  d  '  ) 

i  4»  ii 

+  V0(s* '  )  e  a,s  S (s ' '  ,  d*  ) 

i  _  t  i  i 

+  V0(s"M  e  a’S  S(  s '  *  '  ,  d') 

+  ...  (126) 

If  Acos  is  an  integral  multiple  of  Soj  for  all  sources,  that 
is, 


D  .  =  d ? 
s ' 

(127) 

D  ,  ,  =  d  •  • 
s ' 

(128) 

r  r 

we  use  H ’ Hopital ' s  rule  to  evaluate  S(s', 

df  ) ,  getting 

„  .  sin  bn  -ibir/N 

b^0  sin  bir/N 

(129) 

b  =  D  f  -  d* 
s 

(130) 

A  straightforward  evaluation  of  all  other  terms  shows  that 

they  are  all  zero,  since  (D  ,  ,  -d ’  ) ,  (D  ,  ,  , -d '  ) ,  etc.  are  all 

s  s 

6  S 

In  this  section,  we  further  assume  that  each  echo  has  a 
different  Doppler  shift,  i.e.  that  d',  d' ' ,  etc.  are 
all  different  Doppler  numbers.  Since  the  Doppler  shift 
is  proportional  to  the  radial  component  of  the  velocity 
of  the  source  (the  component  of  velocity  along  ) , 
sources  at  different  incidence  angles  will,  in  general, 
result  in  different  Doppler  shifts  even  if  all  sources 
move  at  the  same  velocity.  There  can,  however,  exist 
echoes  with  the  same  Doppler  shift;  this  situation  will 
be  treated  as  a  special  case  in  section  2.4.3. 


non-zero  integers.  Therefore 


Fa(d')  =  N  V0(s')  e 


i  <j>  , 

r  3  o  * 


(131) 


For  F  (d11),  only  the  second  term  is  non-zero,  so 


i  4>  , , 

Fa(d")  =  N  VqCs")  e  a,s 


(132) 


and  similarly  for  F  (d’’’),  etc.  Thus  the  Fourier  transforms 

a 

of  the  time  sequence  yield  for  each  source  the  amplitude  and 
time-independent  phase  at  each  antenna  a,  from  which  the  loca¬ 
tion  of  each  source  can  be  calculated  using  the  FWPD. 

Returning  to  F  (d')r  if  D  ,  is  not  an  integer,  then 
S(s' ,  d')  is  not  equal  to  N:  the  amplitude  is  less  than 
N  Vq(s'),  and  the  phase  <|>a  g  is  shifted  by  -(Ds,-d*)  al¬ 
though  the  first  term  is  still  the  only  non-zero  term.  If  in 
addition  D  ,,  (and/or  D  ,,,,  etc.)  is  not  an  integer,  the 
second  (and/or  third,  etc.  )  term  is  non-zero:  the  first  term 
dominates,  but  is  modulated  by  the  effect  of  the  other  term(s). 

The  ringing  effect  of  D  =  6.25  on  F(0)  to  F(12)  is  illus- 

s 

trated  in  the  next  section  in  Figure  8,  which  shows  a  compari¬ 
son  between  unweighted  and  weighted  Fourier  transforms. 

The  spectral  spacing  or  Doppler-frequency  resolution 
6f  of  the  N-term  transform  follows  from  equation  (118), 


6f  = 


7fT  =  Mt 


(133) 


The  frequency  of  each  spectral  line  is 
fd  =  d  6f 


(134) 


d  =  0,  ±1,  ±2,  . . . ,  ±(|  -  1) ,  -  | 


(135) 


so  that  the  unambiguous  frequency  range  is  -  y  6f  to 


\T  07 

(y  -  1)  5f.  The  discrete  Fourier  transform  is  periodic,  so 

^  68 
that  other  frequencies  are  "aliased"  (folded  in)  and  appear 


in  the  same  frequency  range;  that  is, 

F (d  +  mN)  =  F (d )  (136) 

m  =  0,  ±1,  ±2,  ...  (137) 

This  can  be  seen  from  equation  (120), 

N/2-1  i[  (D  - (d+mN ) )  j-pL]  n 

S(s,d+mN)=y  e  (138) 

n=-N/2 

N/2-1  i[(D  -d)  n  -i(m2Tm) 

=  l  e  S  N  e  (139) 

n= -N/2 

=  S(s,d)  (140) 


where  the  last  step  follows  from  the  fact  that  both  m  and  n 
are  integers. 
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2.2.3  Hanning  Weighting:  Spectral  Averaging 

Defining  the  Fourier  transform  as  a  finite  series 
has  the  effect  of  multiplying  it  by  the  box  function,  which 
results  in  the  sin  x/x  ringing  described  in  the  previous  sec¬ 
tion.  This  effect  can  be  reduced  significantly  by  weighting 
each  term  of  the  transform  by  C.5  +  .5  cos  (2irn/N)],  which  is 
called  the  von  Kann  (or  Hanning)  window  or  the  raised  cosine 
window.  The  weighted  transform  F'(d)  is  therefore 

cl 

67 

Note  that  the  above  results  are  modified  by  the  way 
spectral  averaging  is  applied.  See  section  2.2.1. 

Hamming  (1977  ),  section  2.2. 

^Hamming  (1977  ),  section  5.9. 
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i  4>  c  N/2-1  it  (D  -d )  n 

F'(d)  =  I  V  (s)  e  a’s  l  e  s  N 
a  s  u  n=-N/2 


.  2it 


.  2 IT 


,  ,  1  rr-  n  -1  rj—  n 

X  [j  +  i  (e  N  +  e  N  )] 


(141) 


Since 


it  (D  -d)  n  ±i  n  i([D  “  (d+D3  n 
e  e  =  e 


(142) 


the  weighted  transform  is 

F^(d)  =  l  VQ(s)  e1  <fa,s  S(s,d)  +  ^  S(s,d-1)  +  i  S(s,d+1)] 


(143) 


=  ~  [F  (d-1)  +  2  F  (d )  +  F  (d+1 ) ] 

H  cl  a.  a. 


(144) 


Hanning  weighting  can  therefore  be  applied  in  the  frequency 
domain  by  averaging  three  adjacent  spectral  lines  with  weights 
(1),  (2),  (l).70 

To  evaluate  the  result  of  spectral  averaging,  we 
write  equation  (123)  as 


S(s,  d)  =  frS-TT  e_1C  =  sin  b  (cot  c  -  i) 
sxn  c 


(145) 


b  =  (D  -  d )  tt 
s 


(146) 


c  =  (D  -  d)  tt/N 
s 


(147) 


S(s,  d+1)  =  sin  (b±7r)  [cot  (c  ±  tt/N)  -  i] 


(148) 


=  -  sin  b  [cot  (c  ±  tt/N)  -  i] 


(149) 


Then  the  bracket  in  equation  (143)  becomes 


D 

The  scaling  factor  1/4  is  ignored  since  it  makes  no 
difference  in  the  FWFD  calculation  of  the  source 
positions. 


sin  b  {—  |  c  -  i-  [cot  (c+ir/N)  +  cot  (c-ir/N)]} 


_  „•  k  /cot  c  1  2  sin  c  cos  c  ■. 

-  sin  b  { — - —  -  t-  - } 

2  4  -  2  .  2 

c  sin  c  -  sin  ir/N 


(150) 


1  sin  b 
T  sin  c 


cos  c(l  - 


sin  c 


-} 


sin2  c  -  sin2  rr/N 


(151) 


7 1 

where  the  right  side  of  (150)  follows  from  the  identity 


cot  (a  +  g)  +  cot  (a  -  B)  = 


2  sin  a  cos  a 
sin2  a  -  sin2  B 


(152) 


Therefore , 

-i  i  <|>  _  sin  (D  -d)  tt 

F'(d)  =  i  Y  Vn(s)  e  a,s  - m 

a  2^0  sm  (D  -d)  ir/N 

s  s 


sin2  (D  -d)  tt/N 

x  cos  (D  -d)  i(l - 2 - 

®  N  -  -  -  2  f  J  \  _  /  »T  2 


-)  (153) 


sin  (Dg-d)  tt/N  -  sin  tt/N 
Figure  8  compares  i-  F  (d)  and  F’(d)  for  one  source  with  D  = 

£  cL  <3.  S 

6.25,  V_(s)  =  1,  and  <f>  =  0 .  The  widening  of  the  spectral 

line  F^(6)  --  i.e.  F^(5),  F^(7)  are  amplified  —  is  compen¬ 
sated  by  the  significant  reduction  of  the  side  lobes  F'(0)  to 

F' (4)  and  F' (8)  to  F' (12). 
a  a  a 


2.2.4  Data  Recording 

The  data  from  each  case  of  drift  measurements  is 
stored  on  digital  tape  in  two  or  four  records  (see  Table  2), 
the  first  record  (the  first  two  records  for  drift  program 


7  ^"Hamming  (197  7  ), 


section  5.9. 
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■  v  V*  .*  V  V 

lVAalW  •  ■ 


PROGRAM 

N 


RECORD 

if 


CONTENTS 


5 ,  6 ,  8  ,  9 


5,  6 


,  8,  9 


*See  Table  3. 


Negative 

Dopplers 

Positive 

Dopplers 

Negative 

Dopplers , 

Frequency 

#»s 

1-3 

Negative 

Dopplers , 

Frequency 

#*s 

4-6 

Positive 

Dopplers , 

Frequency 

#•  s 

1-3 

Positive 

Dopplers , 

Frequency 

#*s 

4-6 

FORMAT  OF  EACH  RECORD 

5,  6,  7, 

80 

8,  9 

160 

Dummies 


ANTENNA  #  OF  SPECTRAL 
H  LINES** 


32 


32 


32 


32 


64 


64 


64 


64 


Same  for  each 
of  six 
sounding 
frequencies 


Same  for  each 
of  three 
sounding 
frequencies 


**Two  spectral  lines  coded  into  five  six-bit  characters 
See  Table  4. 

DRIFT-DATA  RECORDING  FORMAT 
Table  2 


*CV7tr\V< 


,0.1 


r 
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7)  including  a  preface  and  the  negat ive-Doppler  data;  the 
second  (third  and  fourth  for  program  7),  a  preface  and  the 
posit ive-Doppler  data.  The  preface  includes  the  identifica¬ 
tion  number  of  the  Digisonde  station,  the  date  and  time  of 
the  measurement,  and  other  relevant  drift-measurement  param¬ 
eters  (see  Table  3).  Each  of  the  80  digits  of  preface  infor¬ 
mation  is  coded  separately  into  80  six-bit  characters.  (The 
station  identification  may  contain  two  digits,  but  in  this 
case  the  entire  number  is  coded  into  one  character. )  The  log 
arithmic  amplitudes  (maximum  63  dB)  are  also  coded  into  six- 
bit  characters.  The  phase  accuracy  of  the  data  is  more  criti 
cal:  negative  phases  are  shifted  by  2tt  to  make  them  positive 

and  all  phases  are  converted  to  nine-bit  numbers. 


new 


x  511 


(154) 


(giving  a  phase  resolution  of  2tt/511),  then  two  nine-bit 
phases  are  coded  into  three  six-bit  characters  (see  Table  4). 

With  all  the  information  coded  into  six-bit  charac¬ 
ters,  ten  characters  can  be  packed  into  one  60-bit  computer 
word.  Thus  each  record,  which  includes  2160  characters,  is 
recorded  on  digital  tape  in  only  216  computer  words,  so  that 
one  tape  of  Digisonde  data  can  hold  over  a  thousand  cases 
(2000  records)  of  drift  data  and  a  comparable  number  of  iono- 
grams.  (All  data  is  recorded  as  it  is  measured,  so  the  iono- 
gram  and  drift  data  are  inter-mixed  on  the  tape. )  Since  no 
digit  of  preface  information  exceeds  four  bits,  the  fifth  bit 
(the  second  MSB)  is  set  to  one  in  the  preface  of  the  drift 
data,  in  order  to  distinguish  it  from  the  ionogram  data. 


7  2 

The  program  number,  which  was  called  P  above  to  avoid 
confusion  with  the  number  N  of  quadrature  samples,  is 
called  N  in  the  following  tables  to  conform  with  exist 
ing  Digisonde  documentation;  see  for  example  Bibl  and 
Reinisch  (1978a),  p.  68. 


CHARACTER 

# 


2-6 


22 


23,  24 


26 


61-6 

4 

65  -  68 

EH 

2 

| 

6 

SYMBOL 


V 


YyADd 


HhMmSs 


R 


W 


Tt 


N 


TFfg 


RrpG 


MEANING 


Station  Identification 


Calendar  Year,  Julian  Day 


Hour,  Minute,  Second 


Pulse  Repetition  Rate 


Pulse  Width 


Task  #  (Tt  =  0  for  Goose  Bay) 


Program  #  (called  P  in  text) 


FREQ.  # 


Frequency  in  10  kHz  units, 
for  each  of  the  three  or 
six  sounding  frequencies 


RANGE  # 


Range  [km]  and  Receiver 
Gain  G  in  -10  dB  units 


2.3  Digisonde-Data  Simulation:  Program  TESTSKY 
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TESTSKY  is  a  Fortran-coded  program  which  simulates 
the  drift  data  outputted  from  the  Digisonde.  The  program  was 
started  some  years  ago  by  AFGL  and  ULCAR,  and  was  further  de¬ 
veloped  by  ULCAR  for  use  in  testing  sky  maps.  The  author  has 
adapted  TESTSKY  to  the  University  of  Lowell’s  Cyber  71  com¬ 
puter  system,  and  has  modified  and  updated  the  program  for  use 
with  the  latest  drift  measurements..  The  program  generates  a 
simulated  digital  time  sequence,  transforms  the  time  sequence 
into  the  frequency  domain  (with  or  without  spectral  averag¬ 
ing),  and  packs  the  data  into  two  records  in  the  same  format 
as  the  Digisonde  drift  data. 

The  digital  time  sequence  is  calculated  from  sources 

of  known  incidence  angles.  The  source  information  (azimuth, 

zenith,  amplitude  and  Doppler  frequency  of  the  echo  from  each 

source;  see  Figure  12  in  section  2.4.2  for  the  definition  of 

the  coordinate  system)  is  specified  on  the  input  file  TAP El , 

which  also  includes  the  coordinates  of  the  receiving  antennas, 

7  4 

the  drift  program  number,  the  sounding  frequency,  the  task 
number  (see  Table  3),  and  the  amplitude  and  seed  (see  below) 
of  the  noise  to  be  added  to  each  antenna.  Arbitrary  values 
for  the  Doppler  frequencies  can  be  inputted  via  TAPE1,  or  the 
frequencies  can  be  calculated  from  the  incidence  angles  of 
the  sources  and  an  assumed  drift-velocity  vector.  The  former 
choice  is  sufficient  for  testing  the  SKYMAP  program  (see  sec¬ 
tion  2.4.4)  in  order  to  determine  that  SKYMAP  calculates  the 
correct  source  positions;  the  latter  choice  is  necessary  when 
it  is  desired  to  test  program  DRIFVEL  (see  section  2.5.3) 


7  3 

See  program  listing  in  Appendix  A. 

^TESTSKY  is  coded  only  for  drift  programs  5,  6,  8 
and  9 . 


which  calculates  the  drift  velocity  on  the  assumption  that 
all  sources  are  moving  at  the  same  velocity.  A  binary-coded 
variable  KPRINT  (also  inputted  via  TAPED  determines  whether 
to  calculate  the  Doppler  frequencies;  it  also  determines 
whether  to  do  the  spectral  averaging,  whether  to  add  noise 
to  the  time  sequence,  and  which  values  (the  time  sequence, 
the  frequency  sequence,  etc.)  are  to  be  printed  (see  comment 
statements  in  the  program  listing  in  Appendix  A). 

TESTSKY  calculates  for  each  antenna  the  digital 
time  sequence 


X  (t  ) 

=  l  Vn(s) 

cos  (Ago  t 

-y  -y 

-  k  *  r  ) 

(15  5) 

a  n 

L  0 
s 

s  n 

s  a 

Y  (t  ) 

=  I  V  n  (  s  ) 

sin  (Ao»  t 

-y  -y  „ 

-  k  »r  ) 

(156) 

a  n 

s  0 

s  n 

s  a 

|k  |  = 

2tt/X 

(157) 

1  s 1 

s 

X  =  c/(f  +  Af  ) 
s  s 

(158) 

2 

II 

o 

1 ,  2  ,  ... 

,  N-l 

(159) 

(The  parameters  not  defined  here  are  the  same  as  in  section 

2.1.1.)  The  time-independent  phase  -k  »r  in  (155)  and  (156) 

is  different  from  <j>  of  equations  (65)  and  (66),  which  has 

the  additional  phase  term  k  •$,  +  6  (see  equation  (51)); 

s  i ,  s  s 

since  this  term  cancels  out  in  the  FWPD  calculation  (see  equa¬ 
tion  (179)),  it  can  be  omitted  in  the  time-sequence  Simula- 
tion.  Also,  compare  the  definition  of  |k  |  in  (157)  to 

b 

equation  (47):  the  latter  is  an  approximation  that  we  use  in 
our  calculations;  TESTSKY  uses  the  exact  definition  of  |k  |. 

7  5 

Except  that  is  included  when  simulating  drift  data 
from  more  than  one  source  at  the  same  Doppler  fre¬ 
quency.  See  section  2.4.3. 


Note  also  that  in  (159),  n  starts  at  zero  instead  of  -N/2 
(compare  equation  (55)):  adding  N/2  to  each  of  the  values  of 
n  is  equivalent  to  replacing  Aa)g  t  of  equations  (65)  and  (66) 
by  (using  equations  (55),  (116)  and  (118)): 

Aw  (n  +  N/2)  <5t  =  Aw  t  +  D  7r  (160) 

s  s  n  s 

The  phase  constant  Dg  it  can  be  considered  to  be  absorbed  by 


If  desired,  noise  can  be  added  to  the  time  sequence. 
For  each  of  the  simulated  quadrature  samples  X  (tn)  and  Yfl(t  ), 
subroutine  GAUSS1  calls  a  Fortran  intrinsic  function  RANF, 
which  is  a  random  number  generator,  and  uses  the  random  num¬ 
bers  to  generate  a  Gaussian  noise  sequence.  The  random  num¬ 
ber  sequence  can  be  varied  by  varying  the  seed  of  RANF.  The 
noise  is  then  added  to  the  sequence  of  quadrature  samples. 

Different  noise  sequences  are  added  to  the  real  parts  X  (t  ) 

an 

and  to  the  imaginary  parts  Yfl(tn)  of  the  time  sequence.  The 
result  is  not  a  Gaussian  distribution  of  noise,  but  then 
neither  is  the  noise  in  the  real  data.  With  an  I.F.  band¬ 
width  of  ±10  kHz  in  the  Digisonde  receiver  and  a  Doppler  band¬ 
width  of  ±4  Hz  or  ±8  Hz  (see  Table  1),  noise  outside  the  Dop¬ 
pler  range  folds  over  and  shows  up  within  the  Doppler  range. 

Subroutine  FORER  transforms  the  time  sequence  of 
each  antenna  into  the  frequency  domain.  The  transform  is  de¬ 
fined  as  in  equation  (114),  except  that  again  n  runs  from  0 
to  N-l.  The  Doppler-frequency  resolution  and  the  Doppler 
range  are  the  same  as  in  section  2.2.1;  F  (d)  is  the  same  as 

d 

in  section  2.2.2  except  for  a  phase  shift  (D^-d)!!:  S(s,d) 
becomes  (compare  equation  (124)) 

sin  (D  — d ) tt  i[(D  -d)iT  -  (D  -d)n/N] 

S(s,d)  -  N  ■■  ;p  e  E  s  (161) 

s 

The  Fourier  algorithm  used  in  subroutine  FORER  is 
the  Radix  2  Decimation-in-Frequency  Fast  Fourier  Transform 
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(FFT),  taken  from  a  program  written  by  Michael  Forman.  The 
FFT  is  a  discrete  Fourier  transform  algorithm  which  calculates 
a  transform  of  N  points  (for  N  =  2L,  with  L  an  integer)  by  a 
suitable  combination  of  two  transforms,  each  of  length  N/2. 

An  N-point  transform  is  calculated  from  two  (N/2)-point  trans¬ 
forms,  each  of  which  is  computed  using  two  (N/4)-point  trans¬ 
forms,  and  so  on;  in  the  final  analysis,  the  N-point  transform 

is  calculated  from  N/2  two-point  transforms.  Whereas  the  di- 

2 

rect  transform  employs  N  complex  multiplications  to  compute 
all  N  points,  the  FFT  needs  only  N  *  L  =  N  log2  N  multiplica¬ 
tions.  For  64  and  128  points,  this  is  a  ratio  of  4096/384 
(over  10/1)  and  16384/128  (over  18/1)  respectively,  resulting 
in  a  significant  saving  of  computer  time.  With  the  FFT,  the 
order  of  the  sequence  of  points  is  shuffled  and  must  be  re¬ 
arranged  to  produce  the  correct  results.  The  Radix  2  Decima- 
tion-in-Time  algorithm  shuffles  the  input  sequence,  and  the 
output  is  obtained  in  natural  order.  The  algorithm  used  in 
TESTSKY  takes  the  input  in  natural  sequence  so  that  the  out¬ 
put  must  be  reshuffled.  The  function  IBRSH  in  TESTSKY  deter¬ 
mines  the  indices  for  the  calculation  of  the  N/2  two-point 
transforms,  the  combinations  of  half-length  to  full-length 
transforms,  and  the  re-shuffling  of  the  output  into  the  cor¬ 
rect  order. 

Spectral  averaging  is  applied  to  the  complex  fre¬ 
quency  spectrum  by  averaging  three  adjacent  spectral  lines 
with  weights  (-1),  (2),  (-1)  instead  of  (1),  (2),  (1),  since 

for  the  Fourier  transform  defined  with  n  starting  at  zero, 

7  7 

the  Hanning  window  is  [.5  -  .5  cos  (2Ttn/N)].  The  resulting 
weighted  spectrum  F'(d)  is  the  same  as  in  eauaticn  (153),  ex- 

a. 

cept  for  an  added  phase  factor  (D  — d )tt  :  i.e.  4>  of  (153) 

S  3  )  S 

^Peled  and  Liu  (1976  ),  sections  3.2  and  3.3. 
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Peled  and  Liu  (1976),  p.  99,  exercise  2.6(c). 
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is  replaced  by  <p  +  (D  -d)n. 

d  j  S  S 

After  spectral  averaging,  the  frequency  spectrum  is 
converted  from  (real,  imaginary)  to  (amplitude,  phase).  Sub¬ 
routine  C720  then  converts  the  amplitudes  to  log^g  values  and 
scales  them  to  a  maximum  log  value  of  63  (six  bits);  the 
phases  are  converted  as  described  in  section  2.2.4  to  nine-bit 
values.  The  preface  and  data  for  each  case  are  then  packed  in 
the  same  format  as  in  the  Digisonde,  and  outputted  on  file 
TAPE9  by  subroutine  C2160  in  two  records  (negative  and  posi¬ 
tive  Dopplers,  in  that  order),  with  the  2160  six-bit  charac¬ 
ters  for  each  record  packed  in  216  60-bit  words.  Program 
TESTSKY  produces  data  for  only  one  sounding  frequency  per 
case,  but  its  output  is  otherwise  identical  to  that  of  the 
Digisonde . 


2.4  Analysis  of  the  Drift  Data:  Locating  the  Sources 

2.4.1  The  Frequency-Wavenumber  Power  Density 

The  FWPD  is  a  transform  from  the  amplitude/phase 
domain  into  the  spatial  domain,  using  the  cross-spectra  be¬ 
tween  antennas  to  determine  the  angle  of  incidence  of  each 
spectral  component. 

The  FWPD  is  defined  as  in  equation  (84),  which  is 
repeated  here, 

4  4  ...  ik*  (r  -r  ,  ) 

P (d ,  k)  =  l  l  F  (d)  F  .(d)  e  a  a  (16 

a=l  a '  =  1  a  a 

k  =  Jc  (x  ,  y  ,  )  (16 

m  J  m 


P  (d ,  k )  =  P  (d ,  x  .  y  ,  ) 


(16 


(165) 


.7  ,  -*■  -+■ 

.  4  ik*r  4  ik*r  ,  ... 

P(d,  k)  =  £  F  (d )  e  a  l  [F  ,(d)  e  a  ] 

a=l  a  a'=l  a 


=  I  l  F  <cl) 


•T  ^ 
ik»  r . 


(166) 


where  *  denotes  the  complex  conjugate;  F  (d)  and  F  ,(d)  are 
the  Fourier  spectra  at  antennas  a  and  a*  respectively;  and  k 
is  a  scanning  vector  of  constant  magnitude  2tt / A  but  varying 
direction,  as  explained  in  section  2.1.3.  £a£d)  *  £a*(d)  is 

i3c#r* 

the  cross-spectrum  between  a  and  a* ,  and  e  a,  e  af  are 
computational  phase  delays. 


If  no  two  Doppler  shifts  fall  on  the  same  spectral 
line,  then  equation  (153)  yields  (the  prime  has  been  dropped) 


F  (d)  =  V  e 
a  a ,  s 


Fa’<d>  =  Va’,s  e 


i4>a',s 


(167) 


(168) 


V  =  V  t  =  y  V.(S>  COS  C  (1 - - ) 

a>s  a'.s  2  0  b  sin!  c  _  sin2  „/N 


(169) 


b  =  (D  -  d)  tt 
s 


(170) 


c  =  (D  -  d)  tt/N 
s 


(171) 


We  are  neglecting  the  ringing  contributions  of  neighboring 

Doppler  lines,  since  spectral  averaging  has  reduced  their 

significance  (see  Figure  8).  For  each  source  whose  Doppler 

shift  Aw  is  an  integral  multiple  of  6w,  equation  (169) 
s 

becomes 


V  =  V  , 
a ,  s  a  ,  s 


7  Vs) 


(172) 


Using  (167)  and  (168),  the  FWPD  becomes 


f 

ft 
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P(d,  £>  =  I  j  V*  e 
a= 1  a '  =  1 


*^a,s  '  *a',s) 


(173) 


I  v; 

a  =  l 


l  I  Vi  c  Ce 

a=l  a'=a+l 


i(4»  -4<  »  c)  -ity- 

a,s  a',s  +  e  a,s  a  ,s  -j 


(17  4) 


4  0  3  4 

T  V2  +2  £  J  cos(i|)  _  _  i  s>  (175) 

a=l  a,S  a= 1  a'=a+l  a,s  a>s  a  ,S 


J;  =  <i>  +  k»r 

a,s  a,s  a 


(176) 


*a',s  =  ^a  ’  ,  s  +  k*r^ 


(177) 


where  the  first  term  of  (175)  is  the  auto-correlation  term. 
From  the  definition  of  <t>ajS  in  equation  (51), 

^a,s  "  *a',s  =  V*l,s  "  V?a  +  6s  +  k*?a 


-  V*l,s  +  *  «s  -  «a* 


(178) 


-►  ■+  .  ,-y  ~y  . 

=  (k  -  k  )•  (r  -  r  . ) 

5  cl  d 


(17  9) 


so  that  in  the  phase  of  the  echo  only  the  phase  component 
which  depends  on  the  antenna  separation  matters.  From  (179), 
equation  (175)  is  clearly  a  maximum  when 


k  =  k. 


(180) 


that  is,  when  the  scanning  vector  £  looks  in  the  direction  of 

#  -f 

the  wave-propagation  vector  k  . 

S 
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2.4.2  The  Sky  Map 


As  mentioned  in  section  2.1.3,  the  direction  of  the 


scanning  vector  k  is  defined  by  the  Cartesian  coordinates 


(x^,  y  ,),  which  vary  in  steps  of  equal  increments  on  both 


horizontal  axes  of  a  square  map.  The  north-west  quadrant  of 
the  map  area  is  sketched  in  Figure  9  and  illustrated  in  more 
detail  in  Figure  10.  Imagine  a  spherical  cap  formed  by  the 
set  of  all  points  at  range  R,  zenith  angle  £  and  azimuth  a. 


£  <  £ 

—  max 


(181) 


0  <  a  <  360< 


(182) 


The  sky  map  represents  that  area  of  the  sky  which  is  on  the 
curved  surface  of  the  cap,  and  whose  vertical  projection  onto 
a  horizontal  plane  forms  a  square  whose  corners  are  at  (R, 


Cmax>  and  azimuth  45°  (NE),  135°  (SE),  225°  (SW)  and  315°  (NW). 


(The  azimuth  a  is  defined  as  zero  on  the  x  axis,  which  points 
north,  and  increases  towards  the  -y  axis,  or  east.) 


The  incremental  steps  Sx  and  6y  for  the  x-  and  y- 


axis  coordinates  are  defined  by  R  and  £  ,  as  illustrated  in 

7  max 7 


Figure  11.  The  range  vector  at  the  corner  of  the  map  has  x 


and  y  components  both  equal  to  .707  R  sin  Cmax-  These  compo¬ 


nents  are  divided  into  20  equal  increments  so  that 


6x  =  6y  =  (.707  R  sin  £  > / 2 0 

3  max 


(183) 


Each  of  the  sky  map  coordinates  then  corresponds  to  a  point  in 


the  sky  whose  position  vector  5  has  components  xm,  Ymt »  z: 


xm  =  m  fix  =  (.707  R  sin  £__)  W*- 
m  max  20 


(184) 


ym,  =  m'  6y  =  (.707  R  sin  imax>  ^ 


(185) 


/d2  2  2  .1/2 
z  =  (R  -  x  -  y.  ) 
m  m 


(186) 


CROSS-SECTIONS  OF  SKY  AREA  REPRESENTED  BY  SKY  MAP 


^4-  X+ 


For  drift-data  simulation  in  program  TESTSKY  (see  section 
2.3),  the  source  positions  are  inputted  in  terms  of  the  angles 
a  and  C,  which  are  related  to  x,  y  and  z  as  follows  (see  Fig¬ 


ure  12): 

x  =  R  sin  ^  sin  (a  -  3tt/2)  (187) 

=  R  sin  £  cos  a  (188) 

y  =  R  sin  £  cos  (a  -  3tt / 2 )  (189) 

=  -  R  sin  t;  sin  a  (190) 

z  =  R  cos  C  (191) 
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COMPONENTS  OF  THE  RANGE  VECTOR  R 

Figure  12 


main  lobe  (whose  values  increase  to  a  maximum  as  k  approaches 
the  source  vector  kg  from  any  direction)  but  also  two  types  of 
side  lobes,  which  we  call  the  major  and  minor  side  lobes:  the 
major  side  lobes  have  a  peak  value  equal  to  the  peak  of  the 
main  lobe;  the  minor  side  lobes  have  a  maximum  6  dB  below  that 
of  the  main  lobe.  Both  types  of  lobes  are  illustrated  in  Fig¬ 
ure  13,  which  is  the  antenna  pattern  for  a  source  directly 
overhead  (the  main  lobe  is  in  the  center),  at  a  sounding  fre¬ 
quency  of  10  MHz.  The  numbers  labeled  IX  and  IY  to  the  right 
of  and  below  the  map  respectively  are  the  indices  of  the  map 
coordinates;  the  other  indices  IXMAX  and  IYMAX  will  be  ex¬ 
plained  in  section  2.4.4.  IX  and  IY  are  more  properly  array 
indices  as  defined  in  program  SKYMAP  but  we  consider  them  as 


map  indices  corresponding  to  m  and  m'  as  follows: 

m  =  21  -  IX  (199) 

m*  =  21  -  IY  (200) 

IX,  IY  =  1,  2,  3,  . . . ,  41  (201) 

m,  m*  =  20,  19,  18,  ...,  0,  ...,  -18,  -19,  -20  (202) 

For  example, 

k(IX  =  1,  IY  =  1)  =  £(x20,  y2Q)  (203) 

k(IX  =  41,  IY  =  41)  =  k(x_2[},  y_2Q)  (204) 


(Note  that  the  positive  quadrant  (  +  x,  +y)  is  the  NW  quadrant 
of  the  sky  map;  see  Figure  9).  At  each  coordinate  of  the  an¬ 
tenna  pattern,  P(d,  £)  for  each  k(IX,  IY)  and  any  given  d  (the 
result  is  the  same  no  matter  which  Doppler  number  is  used)  is 
indicated  in  dB.  Note  the  six  minor  side  lobes  of  peak  den¬ 
sity  67  dB  around  the  main  lobe,  and  the  six  major  side  lobes 
further  out,  of  the  same  peak  density  (73  dB)  as  the  main 
lobe.  The  angles  shown  are  the  zenith  angles;  the  reason  for 
their  uneven  spacing  will  be  explained  below. 
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With  a  proper  choice  of  t  .  the  map  area  can  be 

ITla.X 


limited  so  as  to  exclude  the  center  (peak  value)  of  the  first 


major  side  lobe.  A  coarse  approximation  for  £  can  be  de¬ 
max 


rived  by  considering  two  antennas  1  and  2.  The  term  in  the 


FWPD  (equation  175)  which  includes  and  is  (ignoring 

■L  }  S  4  y  S 

the  constants): 


cos  ^ljS  -  tP2  =  cos  ^s*^2  "  ^*^2^ 


(205) 


where  the  right  side  follows  from  equation  (179)  with  =  0 
The  maxima  of  (205)  are  at 


-  £*r>2  =  0,  ±2 it,  ±4it,  ... 


(206) 


Figure  14  illustrates  the  relationship  between  the  zenith 

^  ^  ^ 

angle  £  and  the  angle  0  (where  0  is  between  k  and  r)  for  k  in 
the  same  vertical  plane  as  r,  the  antenna-position  vector. 

In  quadrant  I, 


k-r  =  | r |  cos  (90°  -  £) 


(207) 


2-rr  _ 

y-  r  sm  £ 


(208) 


and  in  quadrant  II, 


k«r  =  |r|  cos  (90°  +  £) 


(209) 


2tt 

y-  r  sm  £ 


(210) 


Now  suppose  that  £  (the  zenith  angle  of  k  )  is  in  quadrant 

s  s 


I ,  and 


sin  £g  =  X/2r 


(211) 


and  £k  (the  zenith  angle  of  the  scanning  vector)  is  at  the 
same  zenith  but  in  quadrant  II,  then  from  (208)  and  (210), 
equation  (206)  yields  in  this  example 


(-  j-  r  sin  tk> 


(212) 


sin 


(213) 


=  2  it  (214) 

so  that  the  FWPD  (for  two  antennas)  is  a  maximum  in  the  direc¬ 
tion  of  the  source  (main  lobe)  and  at  the  same  zenith  angle 
but  diametrically  opposite  in  azimuth  (side  lobe).  To  exclude 
this  side  lobe,  the  searching  angle  (with  only  two  antennas) 
must  be  limited  to 

sin  E  <  A/2r  (215) 

JuaX 

The  determination  of  E  _  ,  with  four  antennas  was  done  numeri- 

max 

ally,  and  it  was  found  that  setting 

sin  (216) 
max 

(where  L  is  the  maximum  antenna  separation  —  see  Figure  5) 
eliminates  the  peak  of  the  first  major  side  lobe.  This  is  il¬ 
lustrated  in  Figure  15  which  shows  the  antenna  pattern  at  a 
sounding  frequency  of  10  MHz,  for  a  source  placed  at  the  ex¬ 
treme  upper  right-hand  corner  of  the  map,  at  zenith  angle 

=  17.42°  (217) 

max 

Part  of  the  major  side  lobe  appears  near  the  bottom,  on  the 
left.  Its  maximum  value  at  (IX  =  29,  IY  =  1)  is  3  dB  below 
the  peak  of  the  main  lobe;  its  own  peak  value  is  outside  the 
map,  which  justifies  the  value  of  E  in  (217)  calculated 
according  to  (216).  Two  minor  side  lobes  show  up  with  peaks 
at  (1,  8)  and  at  (29,  25);  these  are  6  dB  below  the  peak  of 
the  main  lobe.  Thus  it  is  possible  to  determine  the  actual 
source  position  from  the  maximum  value  of  P(IX,  IY).  Note, 
however,  that  if  a  source  is  outside  C  ,  the  peak  of  one  of 
its  major  side  lobes  may  appear  on  the  map. 
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?>max  is  a  function  of  X;  at  lower  sounding  frequen 
cies,  the  lobes  are  spread  further  apart,  so  £  is  larger. 
Up  to  about  4  MHz,  £  as  defined  in  (216)  is  greater  than 
45°,  but  the  program  SKYMAP  sets  it  to  45°  since  it  is  not  e 
pected  that  the  receiving  pattern  of  the  antenna  array  at 
Goose  Bay  will  pick  up  sources  beyond  a  zenith  angle  of  45°. 

With  the  sky  map  coordinates  as  defined  above,  the 
angular  increments  for  the  zenith  angles  at  a  given  azimuth 
are  not  equally  spaced  (as  can  be  seen  in  the  antenna  pat¬ 
tern  of  Figure  13),  which  explains  the  apparent  asymmetry  of 
some  of  the  side  lobes  in  the  antenna  pattern.  This  uneven 
spacing  of  the  zenith  angles  is  illustrated  in  Figure  16, 
which  shows  a  vertical  cross-section  of  the  sky  along  the  ma 
diagonal  5,  for  e  at  45°  (the  maximum  for  the  sky  maps) 
and  at  90°  (the  maximum  for  the  antenna  pattern  of  Figure  13 
From  equation  (183),  the  diagonal  map  increment  6?  is 


65  =  (6x2  +  6y 2 )1/2 


(218 


=  6x  ST 


=  (R  sin  W/20 


(219 

(220 


which  yields  the  scale  values  given  in  the  figure. 

The  range  vectors  $  are  drawn  for  the  values  of 
m  (=  m*)  which  are  multiples  of  2.  Since  the  increments  of 
arc  length  are  proportional  to  the  increments  in  zenith  angl 
a  comparison  of  the  arc-length  increments  near  the  center  of 
the  map  with  those  near  the  edge  gives  a  qualitative  picture 
of  the  variations  in  zenith.  The  distortion  near  the  edge  i 
much  less  for  the  sky  maps  than  for  the  antenna  pattern  in 
Figure  13.  A  few  specific  values  of  angular  increments  are 
indicated  in  Figure  16;  these  were  calculated  from 


zenith-angle  increments 


(22 1) 


sin  5(5)  =  €/R 

=  m  6£/R  (222) 

=  (m  sin  Cmav)/20  (223) 

IILd  X 

where  5(5)  is  the  zenith  angle  of  the  range  vector  5. 


2.4.3  More  Than  One  Echo  at  the  Same  Doppler  Line 

To  illustrate  the  result  of  the  FWPD  calculation 
when  more  than  one  source  has  the  same  Doppler  shift,  let  us 
assume  two  sources  s’  and  s”  with 


Aw  ,  =  A co  „  =  d’  6co 
s  s 

(224) 

Acog,  =  Ds,  So) 

(225) 

A“s"  =  Ds"  6w 

(226) 

Ds,  =  Ds„  =  d' 

(227) 

where  d'  is  one  of  the  Doppler  numbers  d.  In  the  more  general 
case,  D  ,  and  D  „  may  not  be  integers  (i.e.  may  not  be  exactly 
equal  to  d')  and  may  not  even  be  equal  to  each  other;  if  they 
are  both  approximately  equal  to  d1,  then  they  fall  on  the  same 
Doppler  line  d'.  The  principle  to  be  illustrated  below  is 
the  same  with  or  without  assumption  (224);  but  this  assumption 
makes  the  algebra  considerably  simpler. 

With  D  ,  (=  D  ,,)  an  integer,  the  spectrum  is  the 
s  s 

same  before  and  after  spectral  averaging  except  for  a  scaling 
factor,  so  let  us  consider  first  equation  (126),  which  is  the 
spectrum  before  averaging:  in  (126),  only  the  first  two  terms 
are  non-zero,  since  it  is  assumed  that  there  are  only  two 
sources;  and  from  equation  (129), 

S(s ’ ,  d’ )  =  S ( s ” ,  d’ )  =  N  (228) 

V  =  DS"  =  d'  <229) 
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so  that 


Fa(d»)  =  N  V0(s»)  e^atS'  +  N  VQ(s")  el4>a,S" 


(230) 


A  comparison  of  equations  (119)  and  (143)  shows  that  spectral 
averaging  replaces  S(s,d)  by  the  bracket  in  (143),  which 


yields  equation  (151);  it  can  be  shown  that  with  D  an  inte- 

O 


ger,  (151)  becomes  N/2,  so  that  (after  averaging). 


M  ,i  i<j>, 

£  [Vft(sf )  e  a,s  +  V„(s")  e  a,s  ] 


Fa(d»  )  =  j  [V0(sf )  e  0,0  +  V  q  ( s ”  ) 


(231) 


To  make  the  FWPD  analytically  tractable,  we  make  the  simplify¬ 
ing  assumption  that  the  amplitude  Vq  of  both  sources  is  the 
same,  and  write 


W  ot* 

Fa(df )  =  7  VQ  [e  a,S  +  e  a>s  ] 


(232) 


vo  =  Vs?)  =  vo(sH) 


(233) 


e1'’’3’5'  +  e1**’*"  =  2  cos  [(♦  ,  -  *  „>/2} 

djo  d  5  o 


i^a,sl  +  *a,s”)/2 


(234) 


F  (d')  =  V  e 

cl  a 


i(<)>a,s'  +  *a,s")/2 


(235) 


Va  =  Va(s',s")  =  N  VQ  cos  [Ua  s,  -  4>a  s„)/2] 


(236) 


The  last  equation  expresses  the  fact  that  with  two  (or  more) 
echoes  on  the  same  Doppler  line,  the  amplitude  of  that  Doppler 


is  in  general  different  at  each  antenna.  We  write  also  F  ,(d') 

cl 


i(<J>,  +  <f>  »  s„)/2 

F  , (d ' )  =  V  .  e  a  ,s  a  ,s 


(237) 


V  i  =  N  Vn  cos  [(<J>  .  .  -  <f>  ,  ,, )  /  2  ] 


a '  ,  s' 


(238) 


Ij 


(To  avoid  confusion,  remember  that  as  defined  consistently 
above , 

a,  a’  =  1,  2,  3,  4  (23 

s  =  s' ,  s" ,  s'  *  ’  ,  .  .  .  (2  4 

d  =  d',  d",  d"‘,  ...  (24 

that  is,  the  antenna  index  a'  is  a  running  index  and  not  a 
specific  value  of  a.)  Then  the  FWPD  (equation  (162)  evalu¬ 
ated  for  d  =  d')  becomes 


4  4 

P  =  P(d',  t)  =  l  l  V  V  , 
a= 1  a' =1  a  a 


i  (¥  -  ¥  .  ) 


a  a 


Y  =  V  (s',  s")  =  (A  .  +  A  „)/ 2  +  k«r 


a  a 


’a.  E  '•'a^8',5”)  =  ♦  ♦a.#s«>/2  ^  k.ra, 


4  2  3  4  i(¥  -¥  , )  -i(Y  -V  ,) 

P  =  l  V  ^  ♦  I  l  (Va  V  .[e  a  a  +  e  a  a  ]} 


a=l  a  a=l  a'=a+l  a  a 


4  3  4 

p  =  l  Va2  ♦  I  l  2  V  V  ,  cos  (T  -  »„,)  (24 

a=l  a=l  a'=a+l 

Using  (236),  (238),  (243),  (244)  and  the  definition  (51)  of 
<J>  ,  equation  (245)  becomes: 

cl  )  S 


P  =  N2  V  2  T  cos^  [ 
0  a=l 


t  _v 

2  r  S”  S’  -► 


r  +  6  ] 

a. 


?  2  r  r  k  ,,-k  ,  ^ 

+  2  N2  vn2  (  l  l  cos  [  — — — * — - —  •  r  +  6] 


a=l  a*=a+l 


k  i 

x  cos  [— — a ■  —  •  r  .  +  6] 


-*■  ->■ 
k  ,  +  k  „ 

.  s.  .  *  ).(?  -  ?_.)]} 


x  cos  [ (k  - 


(248) 


Thus  with  two  (or  more)  echoes  at  the  same  Doppler  frequency, 
the  initial  phase  of  each  echo  does  not  cancel  out.  Examples 
of  the  effects  of  various  values  of  6  will  be  shown  in  sec¬ 
tion  3.1. 


2.4.4  Program  SKYMAP 

7  8 

The  SKYMAP  program  is  used  to  calculate  sky  maps 
using  Doppler-drif t  data  from  either  the  Digisonde  or  program 
TESTSKY.  The  original  SKYMAP  program  was  developed  a  few 
years  ago  by  ULCAR.  In  its  present  form,  it  retains  the  orig¬ 
inal  routines  for  unpacking  and  decoding  the  data;  but  the 
rest  of  the  program  has  been  modified  and  expanded  extensively 
by  the  present  author. 

The  drift  data  is  inputted  via  file  TAPE1.  At  the 
beginning  of  each  run,  the  program  requests  the  value  of 
KPRINT,  the  record  number,  the  frequency  number (s),  and 
whether  negative,  positive  or  both  Dopplers  are  to  be  proc¬ 
essed.  KPRINT  is,  as  in  program  TESTSKY,  a  binary-coded  var¬ 
iable  which  determines  the  functions  to  be  performed  (see  be¬ 
low).  The  record  number  determines  whether  to  start  process¬ 
ing  the  data  with  the  first  record  found  on  input  file  TAPE1 
or  with  a  later  record.  The  frequency  number  (or  numbers) 
indicates  whether  the  data  for  all  three  or  six  sounding  fre¬ 
quencies  is  to  be  processed,  or  only  the  data  from  one  of  the 
sounding  frequencies. 

The  functions  performed  by  the  SKYMAP  program  are  of 
7  9 

three  types:  data  checks;  separating  the  drift  data  from 


7  8 

See  listing  in  Appendix  B. 

7  9 

See  program  comments  at  the  beginning  of  the  program 
listing  for  more  details. 


'•A  •’»  .  ■ 

r>  t  .  •  - 
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the  ionogram  data;  and  calculating  or  printing  sky  maps  or  an¬ 
tenna  patterns.  The  data  checks  include  printing  the  drift 
data  in  its  various  forms  (raw  data,  unpacked  data,  amplitudes, 
phases);  these  checks  were  used  in  the  early  testing  stages  to 
verify  the  format  of  the  simulated  data  from  TESTSKY,  and  for 
a  preliminary  examination  of  the  measured  drift  data  from 
Goose  Bay.  The  second  type  of  function  is  used  to  separate 
the  drift  data  from  the  ionogram  data  on  a  physical  tape  and 
store  it  in  a  computer  file,  in  order  to  use  the  allotted  com¬ 
puter-memory  space  more  efficiently.  Of  the  four  sky-map 
functions,  three  include  the  calculation  of  the  sky  maps  (i.e. 
calculating  the  FWPD  of  each  map  coordinate,  for  each  Doppler 
line),  with  options  for  printing  the  sky  maps  (via  subroutine 
PRIN)  as  they  are  calculated,  printing  the  antenna  patterns 
for  each  Doppler  line,  and/or  saving  the  map  data  (the  map 

indices  IX  and  IY  of  each  source,  the  source  density  P  (IX,  IY), 

s 

and  the  Doppler  number  d  of  each  source)  on  file  TAPE50.  This 
last  function  is  performed  by  subroutine  MAPDATA.  The  fourth 
function  involves  printing  the  sky  maps  from  the  data  on 
TAPE50.  If  the  value  of  KPRINT  indicates  this  function,  the 
FWPD  calculation  is  skipped  and  subroutine  MAPSEQ  is  called. 

The  subroutine  requests  information  as  to  the  starting  time 
(the  time  of  the  first  case  to  be  printed;  or  "zero”,  to  start 
at  the  beginning  of  TAPF50),  whether  negative,  positive  or 
both  Dopplers  are  to  be  printed;  the  minimum  density  in  dB  of 
the  sources  to  be  included  on  the  map  (with  the  option  of 
setting  the  minimum  density  at  a  fixed  value  for  all  maps,  or 
at  a  fixed  number  of  dB  below  the  maximum  density  of  each 
map);  and  whether  to  print  each  case  on  a  separate  map  or  to 
compress  several  consecutive  cases  onto  one  map  ("time  se¬ 
quence").  With  the  latter  choice,  the  densities  Fg  are  re¬ 
placed  on  the  map  by  the  numbers  0,  1,  2,  ...  to  indicate  the 
time  sequence  of  the  cases. 

When  calculating  sky  maps,  the  program  buffers  in 
one  record  of  drift  data  from  TAPE1  and  unpacks  the  216  char- 


acters  into  2160  computer  words  (see  section  2.2.4).  Then 
the  next  record  is  buffered  in  and  unpacked,  and  the  date  and 
time  in  the  preface  of  both  records  are  compared  to  determine 
whether  both  records  belong  to  the  same  case.  If  the  date 
and  time  are  not  identical,  the  next  record  is  buffered  in; 
if  they  are  identical,  both  records  are  stored  temporarily  on 
TAPE99,  so  that  processing  can  continue  with  each  record 
separately. 

Next  the  preface  parameters  that  are  relevant  tc 
drift  measurements  (see  Table  3)  are  decoded:  the  appropriate 
preface  characters  are  combined  to  form  the  station  number, 
the  year,  etc.;  and  the  decoded  sounding  frequencies,  ranges 
and  receiver  gains  are  assigned  an  index  number  for  identifi¬ 
cation.  The  frequencies  are  incremented  by  12.5  kHz,  because 
the  sounding  frequencies  in  the  DGS  128PS  are  offset  by  12.5 
kHz  from  the  indicated  frequencies  in  order  to  diminish  pos¬ 
sible  interference  with  commercial  short-wave  stations,  which 
generally  broadcast  at  multiples  of  100  kHz.  It  was  found 
that  for  technical  reasons  the  data  transfer  from  the  Digi- 
sonde  to  digital  tape  is  not  done  correctly  for  drift  measure¬ 
ments  at  ranges  greater  than  510  km,  so  the  program  skips  to 
the  next  case  if  the  range  is  too  high. 

Subroutine  ANT  is  then  called  to  determine,  from 
the  task  number,  the  number  of  antennas  used,  and  to  define 
the  indices  for  identifying  the  antenna  seauence.  For  drift 
data  from  the  Goose  Bay  station,  the  task  number  is  always 
zero  and  the  four-antenna  array  is  used  for  all  measurements; 
but  the  DGS  128PS  is  designed  for  processing  drift  data  from 
receiving  arrays  of  up  to  twenty-four  antennas  (using  all  an¬ 
tennas  in  the  array  or  submultiples  of  24  in  various  combina¬ 
tions).  Subroutine  ANT  also  determines  from  the  drift  program 
number  the  parameters  of  Table  1,  and  calculates  the  compo¬ 
nents  of  k»r/m  for  each  antenna-position  vector  r  , 


(249) 

(250) 

(251) 


where  k  and  k  were  defined  in  equations  (197)  and  (198). 
x  y 

Subroutine  SPLIT  sorts  out  the  two  six-bit  ampli¬ 
tudes  and  two  nine-bit  phases  from  each  group  of  five  six-bit 
characters  (see  Table  4),  converting  the  log  amplitudes  to 
linear  amplitudes. 


Next,  subroutine  FOU  is  called  to  calculate  the  FWPD 
of  each  Doppler  line.  In  order  to  save  computing  time,  we  de¬ 
fine  an  estimated  power  density  P’(d)  for  each  Doppler, 


4 

P’(d)  =  [  l 
a=l 


|va(d)|]2 


(252) 


where  J  V  (d ) J  is  the  measured  amplitude  of  spectral  line  d 

a 

(V^(d)  =  Va  s  if  all  sources  are  at  different  Dopplers);  and 
we  skip  the  calculation  of  the  FWPD  for  all  Dopplers  for  which 
P'(d)  is  more  than  20  dB  below  the  maximum  P’(d).  Also,  no 
FWPD  is  calculated  when  P'(d)  is  less  than  6  dB  or  when 
| V  (d ) |  is  less  than  1  at  any  antenna. 

.  .  The  FWPD  is  calculated  from  equation  (166).  F  (d) 

ik*  r  ^ 

and  e  a  are  calculated  separately  and  then  combined: 

•  ?  f  v 

e1  '  xm*ym*  *ra  is  first  calculated  for  each  of  the  1681  (41 
x  41)  coordinates,  for  antennas  2  to  4  (r^  =  0);  then  at  each 
Doppler,  the  measured  amplitudes  V  (d)  and  phases  <{>  (d) 

(s  <j>a  if  all  sources  are  at  different  Dopplers)  are  used 
to  calculate  F  (d)  as  V  (d)  e^a^d^  for  each  antenna.  F  (d) 

•  7  ^  d  d  cl 

and  e1  *ra  are  then  combined  as  in  (166)  to  yield  the  FWPD 
for  each  (x  ,y , ).  The  FWPD  algorithm  in  the  or iginal  SKYMAF 
program  combined  the  two  exponentials  as  e1  ^a^  raJ  and 

calculated  this  term  1681  times  for  each  of  the  four  antennas 
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at  each  Doppler  number,  which  used  more  computing  time.  Also, 
in  the  current  SKYMAP  program,  the  cosine  and  sine  values  for 
the  exponentials  are  determined  by  the  program  function 
COSINE,  from  a  table  (calculated  at  the  beginning  of  the  main 
program)  of  the  values  of  cos(O)  to  cos(ir/2),  in  angular  in¬ 
crements  of  2tt/1024.  The  original  program  calculated  the 
trigonometric  values  with  a  Fortran  library  subroutine,  which 
yields  more  exact  values  but  takes  more  time.  A  comparison 
was  made  of  the  two  algorithms,  using  a  drift  measurement  with 
64  Doppler  lines  (2  records:  32  positive  and  32  negative 
Dopplers).  The  CPU  time  used  for  all  107,584  (64  x  1681)  FWPD 
calculations  with  the  original  algorithm  was  180  seconds. 

This  was  cut  down  to  40  seconds  by  using  the  cosine  table  and 
calculating  the  e1  ra  array  only  once.  Skipping  the  FWPD 
calculations  of  the  weaker  Doppler  lines  as  explained  earlier 
further  reduces  the  CPU  time  in  varying  amounts,  depending  how 
many  strong  sources  there  are;  for  the  data  used  in  the  com¬ 
parison,  the  time  was  reduced  to  16  seconds. 

Subroutine  FOU  subtracts  from  each  value  of  P(d,  k) 
the  constant  auto-correlation  term  (the  first  sum  in  equations 
(175)  and  (246))  and  sets  the  negative  values  to  zero.  As  a 
result,  when  the  antenna  patterns  are  printed,  only  the  values 
within  a  limited  radius  of  the  local  peaks  are  non-zero,  which 
makes  it  easier  to  identify  the  lobes. 

For  each  Doppler,  the  map  coordinates  of  the 
source (s)  are  determined  from  the  maximum  linear  values  of 
P(d,  ?:)  of  each  row  IX  and  the  maximum  of  each  column  IY; 
these  indices  are  stored  as  (IX,  IYMAX)  and  (IXMAX,  IY).  (See 
Figure  33,  to  the  right  of  and  below  the  antenna  pattern.) 

The  densities  P  (d)  and  the  Doppler  numbers  d  of  those  peaks 

b 

whose  row  and  column  indices  are  equal  (IX  =  IXMAX  ,  , 

M  row  column’ 

IYMAXrow  =  IYcoiamn)  are  stored  for  the  final  sky  map,  unless 
the  densities  are  more  than  3  dB  below  the  maximum  density 
for  that  Doppler  (thus  eliminating  the  minor  side  lobes).  The 
final  sky  map  consists  of  two  parallel  maps,  one  with  the 


logarithmic  densities  at  the  coordinates  of  the  sources,  the 
other  with  the  corresponding  Doppler  numbers  at  the  same 
coordinates. 

As  mentioned  above,  if  subroutine  MAPDATA  is  called, 
the  map  data  is  stored  on  TAPE50.  The  data  on  TAPE50  can  be 
used  either  for  printing  sky  maps  or  for  calculating  the  drift 
velocities;  the  latter  will  be  discussed  in  the  next  section. 


2.5  Determining  the  Drift  Velocity 

2.5.1  Relationship  between  the  Source  Velocity  and 
the  Doppler  Shift 

The  Doppler  shift  Af  of  source  s  is  proportional  to 

s 

the  radial  component  (the  component  parallel  to  the  source- 
position  vector  5  )  of  the  velocity  of  the  source,  and  is  de- 

D 

termined  as  follows.  Consider  first  a  radio  signal  of  fre¬ 
quency  f  impinging  on  a  reflector  which  is  moving  at  a  non¬ 
relativist  ic  speed  W  towards  or  away  from  the  transmitter;  the 

signal  is  observed  by  the  reflector  as  though  it  were  at  fre- 
*»80 

quency  f* 


_  *  1  ±  W/c 

f  '  f  Cl  -  (W/c)7?” 

f*  Z  f  (1  ±  W/c),  W  <<  c 


(253) 


(254) 


where  c  is  the  speed  of  light  in  vacuum,  the  upper  sign  is  for 
approaching  motion,  and  the  lower  sign  is  for  receding  motion. 
The  reflected  signal  is  then  observed  at  the  transmitting  site 
at  frequency  f" 


f"  =  ff  (1  ±  W/c) 


(255) 


=  f  (1  ±  W/c)' 


(256) 


Halliday  and  Resnick  (1966),  section  40-5 


(257) 


f"  r  f  (1  ±  2  £),  W  <<  c 


with  Doppler  shift 


Af  =  f"  -  f  =  ±  2  -  f 

c 


(258) 


We  consider  the  reflector  as  the  source  of  a  signal  with  Dop¬ 
pler  shift  Af;  since  the  source  motion  can  be  in  any  direc¬ 
tion,  W  is  the  radial  component  of  the  source  velocity 


V*R  =  +  W 


(259) 


where  with  our  choice  of  coordinate  system,  is  negative 

for  motion  towards  the  transmitter/receiver  site  (motion 

A 

along  -  R)  and  positive  for  motion  away  from  the  site  (along 

A 

+  R).  Adding  the  source  index  s  and  combining  (258)  and  (259) 
yields  equation  (87)  given  in  section  2.1.4, 


V  «R 

Af  =  -  2  -s  -S  f 
s  c 


(260) 


2.5.2  Calculation  of  the  Median  and  Average  Drift 
Velocities 

It  was  stated  in  section  2.1.4  that  the  so-called 
case  velocity  is  determined  as  the  median  of  the  individual 
velocities  of  the  case;  the  group-norm  velocity  is  the  median 
of  several  case  velocities;  etc.  For  testing  purposes,  two 
other  types  of  central-tendency  calculations  were  also  used: 
the  weighted  median  and  the  weighted  average. 

All  central  tendencies  are  calculated  separately 

for  the  velocity  components  V  ,  V  and  V  .  The  weighted 

x  y  z  0  ^ 

average  V  (and  similarly  for  V  and  V  )  is  defined  as 
x  y  z 


Selby  (1971). 
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(261) 


1.  5j  V” 
1  =  1  J 


l  Bj 
1 


(262) 


Wj  =  MIN  [ (1/e ^ ) ,  1] 


(263) 


where  the  index  j  refers  to  the  velocities  being  averaged; 
is  the  jth  weighting  factor,  defined  in  (263)  where  MIN  means 
the  minimum  of  the  values  in  the  bracket;  is  the  same 
weight  but  normalized  such  that  the  sum  of  the  normalized 
weights  equals  the  total  number  of  velocities  n.  When  the 
case  velocity  is  being  calculated,  the  least  square  error  e? 
is  calculated  for  each  individual  velocity  as  in  equation 
(90).  For  the  calculation  of  the  group-norm  velocity,  e?  of 
the  jth  case  velocity  is  the  average  of  the  least  square  er¬ 
rors  of  the  individual  velocities  of  case  j ;  the  group-norm 
velocities  are  not  weighted  when  calculating  the  all-frequency 
velocities  (w^  =  1).  With  the  average,  the  variance  (the 
square  of  the  standard  deviation) 


l  *j  CV5)  -  V 


(264) 


is  calculated  using  the  faster  computational  form 

l  tw.  V  <j)]! 

l  Bj  -  2 - n - 

=  1— - , - 

x  n  -  1 


(265) 


Program  DRIFVEL  provides  the  option  of  calculating 
the  weighted  average  once  or  twice:  if  the  average  is  calcu¬ 
lated  twice,  the  second  calculation  bypasses  those  velocity 
vectors  that  are  outside  the  standard  deviation,  according  to 
the  following  definition: 


101 


1  p* 


Vj  =  tVx(j)  +  Vy(j)  +  vz(3)]1/2 


,  2  .  2  2  v 1/2 

o  =  (<JX  °y  °z) 


(267) 


(268  ) 


The  weighted  median  is  determined  as  follows.  The 
un-normalized  weight  wj  is  rounded  out  to  an  integer  after 
being  multiplied  by  104,  and  is  then  treated  as  the  frequency- 
of -occurrence  of  V  (j).  The  V  (j  )  for  all  j  are  sorted  into 

X  X 

descending  order  of  magnitude;  each  occurrence  of  V  (j)  is 
considered  a  separate  value,  and  the  median  is  defined  as  the 
center  value  if  there  is  an  odd  number  of  values,  or  as  the 
average  of  the  two  center  values  if  the  number  of  values  is 
even.  A  variance  for  the  weighted  median  is  also  calculated 


medi2 


l  w.  [V  (j )  -  V™ea] 
i=i  3  x  x 


(269) 


where  is  the  x  component  of  the  median  velocity.  The 

above  procedure  is  also  used  to  determine  the  y  and  z  compo¬ 
nents  of  the  median  velocity.  For  the  unweighted  median,  the 
weights  Wj  are  all  set  to  1. 


2.5.3  Program  DRIFVEL 

8  2 

Program  DRIFVEL  was  developed  by  the  author  to 
calculate  the  drift  velocities  from  the  sky-map  data  on  file 
TAPE50.  Some  of  the  program  options  (calculations  and  output 
formats)  indicated  in  the  comments  of  the  program  listing  will 
not  be  discussed  here  because  they  are  not  directly  relevant 
to  the  presentation  of  the  results  in  section  III;  they  in- 


'See  Appendix  C. 


volve  preliminary  efforts  which  were  later  supplanted  by  the 
calculations  and  data-presentat ion  formats  discussed  below. 

At  the  beginning  of  a  run,  DRIFVFL  requests  informa¬ 
tion  about  the  program  options  desired.  The  value  inputted 
for  KPRINT  determines  which  velocites  are  to  be  outputted. 
Since  TAPE50  can  include  several  files  of  map  data  (calculated 
by  program  SKYMAP)  merged  into  a  single  file  for  storage,  the 
starting  date,  time  and  frequency  number  determine  which  por¬ 
tion  of  the  data  on  TAPE50  is  to  be  used  for  velocity  calcula¬ 
tions.  The  program  starts  the  calculations  with  the  data  of 
the  indicated  date,  time  and  frequency  number,  and  continues 
until  the  frequency  number  changes,  unless  zero  is  inputted, 
in  which  case  all  the  data  on  TAPE50  is  processed.  The  choice 
of  central-tendency  calculation  for  determining  the  case, 
group-norm  and  all-frequency  velocities  is  also  inputted,  as 
well  as  the  variable  parameters  for  the  least-square-error 
calculation. 

The  least-square-error  calculation  can  be  varied  in 
several  ways.  It  was  indicated  in  section  2.1.4  that  the 
source  density  is  used  as  the  weighting  factor  w  in  equation 

b 

(90),  and  that  the  sources  for  a  given  case  are  sorted  in  de¬ 
scending  order  of  the  magnitude  of  Pg  before  the  individual 
velocities  are  calculated;  other  weights  and  sorting  orders 
can  also  be  used.  The  least-square-error  calculation  can  also 
be  limited  to  sources  with  |d|  between  chosen  minimum  and  max¬ 
imum  values;  and  the  result  of  the  calculation  is  ignored  if 
the  least -square-error  and/or  the  absolute  value  of  Vz  is 
greater  than  the  inputted  values  for  those  parameters.  These 
options  will  be  discussed  in  section  3.2. 

The  main  program  calculates  the  individual  velocity 

vectors,  using  function  DET  to  calculate  the  determinants  for 

solving  for  V  ,  V  and  V  .  If  further  calculations  are  called 
x  y  z 

for,  subroutines  MED,  WHTMED  or  AVE  calculate  the  central 
tendencies,  using  the  sorting  subroutine  VSORT  for  the  median 


>  V 


calculations.  Subroutine  VEL  calculates  from  V  ,  V  and  V 

x  y  z 

the  magnitude  V  of  the  drift  vector,  the  horizontal  component 
and  the  azimuth  and  elevation.  Subroutine  GRAPH  prints 
the  two  parallel  graphs  (azimuth  and  speed  graphs)  of  the  in¬ 
dividual,  case,  group-norm  or  all-frequency  velocities.  All¬ 
frequency  velocities  need  one  run  per  frequency  number;  the 
group-norm  velocities  are  calculated  for  each  frequency  num¬ 
ber  separately  and  stored  by  subroutine  ALLFREQ  on  file 
TAPE49;  during  the  run  at  the  last  frequency  number,  ALLFREQ 
calculates  the  all-frequency  velocities  from  the  group-norm 
velocities.  The  output  then  consists  of  two  sets  of  graphs: 
one  set  with  the  all-frequency  velocity  results;  the  other 
with  the  group-norm  velocities  of  all  frequency  numbers 
printed  together.  For  the  latter  set  of  graphs,  subroutine 
IDENT  is  called  to  "spread  out"  values  that  are  at  the  same 
graph  coordinates,  so  that  none  of  the  values  will  be  lost: 
for  example,  if  the  azimuth  of  three  group-norm  velocities  is 
90°,  IDENT  will  spread  them  out  to  85°,  90°  and  95°  (the  azi¬ 
muth  axis  is  in  5°  increments). 
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3.0  RESULTS  AND  DISCUSSION 


3.1  Simulated  Data:  Two  Sources  at  the  Same  Doppler 
Frequency 

In  this  section,  we  present  some  examples  of  sky-map 
and  drift-velocity  calculations  with  simulated  drift  data  cal¬ 
culated  from  pairs  of  sources  at  the  same  Doppler  number,  with 
various  initial  phase  differences  6  (see  equation  248).  These 
examples  serve  the  double  purpose  of  verifying  the  validity  of 
the  sky  maps  and  of  the  calculated  drift  velocities,  and  of 
illustrating  the  effects  of  multiple  sources  falling  on  the 
same  Doppler  line. 

A  horizontal  drift  velocity  of  200  m/s  due  south  is 
assumed.  The  correct  source  positions  are  shown  in  Figure  17 
with  an  identifying  source  number  (circled)  next  to  the  Dop¬ 
pler  number  of  each  source.  The  Doppler  frequencies  f^  are 
indicated  by  the  Doppler  number  d  as  (see  Table  1,  for  drift 
program  number  9) 


f,  =  ±1/16,  ±3/16,  ±5/16,  ...  [Hz] 


(270) 


d  =  1,  2,  3,  ...  for  negative  frequencies 
d  =  A,  B,  C,  ...  for  positive  frequencies 


(271) 
(272  ) 


The  hexadecimal  numbers  in  the  map  on  the  left  indicate  the 
density  Pg  of  each  source  in  6  dB  increments,  at  the  same  co¬ 
ordinates  as  the  corresponding  Doppler  numbers  on  the  right. 
Note  that  the  densities  are  single-digit  numbers,  whereas  the 
Doppler  numbers  may  be  double-digit,  which  is  why  the  map  on 
the  right  is  twice  as  wide.  The  absolute  value  of  the  map' 
indices  m  and  m’  are  indicated  around  the  periphery  of  each 
map.  The  map  scale  and  maximum  zenith  angle  are 


fix  =  fiy  =  7.3  km 


t  v  =  29.9° 

ITlcl  X 


(273) 

(274) 
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where  6x 
range  of 
sounding 


follows  from  the  value  of  £  and  an  (arbitrary) 

max 

412  km  (see  equation  183)  and  t  follows  from  the 

III  cl  X 

frequency  of  6  MHz  (see  equation  216). 


Table  5  lists  the  source  parameters  for  all  22 
sources.  Each  of  the  source  pairs  (1,  12),  (2,  13),  (3,  14), 
...  (11,  22)  is  at  the  same  Doppler  frequency.  The  Doppler 
frequencies  were  chosen  to  be  integral  multiples  of  <$a).  The 
source  coordinates  X  and  Y  are  not  integers;  the  sky  map  cal¬ 
culation  places  them  at  the  closest  integral  multiples  of  m 
and  m*  (remember  that  +X  is  north,  +Y  is  west).  Fourteen 
cases  of  data  were  calculated;  the  map  in  Figure  17  is  a 
superposition  of  the  maps  from  the  first  two  cases,  each  cal¬ 
culated  from  sources  that  are  all  at  different  Doppler  fre¬ 
quencies:  the  first  map  was  calculated  from  sources  1  to  11, 

the  second  from  sources  12  to  22. 


Sky  maps  calculated  from  all  22  sources  together 
(cases  3  to  14)  show  the  effects  of  double  sources  at  the  same 
Doppler  number.  Since  6  is  the  difference  in  phase  between 
the  two  sources  at  the  same  Doppler,  the  first  set  of  sources 
(1  to  11)  were  given  an  initial  phase  of  zero  for  all  cases, 
and  the  phases  were  varied  in  the  second  set  (12  to  22).  The 
values  of  6  in  Table  5  ("INIT  PH”)  are  those  of  case  3:  all 
pairs  of  sources  have  a  phase  difference  of  30°.  In  the  suc¬ 
ceeding  cases,  6  was  incremented  by  30°  for  each  new  case, 

6  =  30°,  60°,  90°,  ...»  330°  all  source  pairs  (275) 

case  =  3,  4,  5,  ...,  13  (276) 

except  that  for  the  last  case  (case  14),  each  source  pair  has 
a  different  6 , 


6  =  0°,  30°,  60° 


330' 


sources  =  (1,  12),  (2,  13),  (3,  14), 


(277) 

,  (31,  22)  (278) 


Case  3  is  shown  in  Figure  18:  with  a  30°  phase  difference, 
each  pair  of  ident ical-Doppler  sources  is  seen  as  one  source 
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EQUAL-DOPPLER  ECHOES,  WITH  6  *  30# 

Figure  18 


near  the  center  of  the  correct  positions.  Some  values  of  6 
give  the  same  results  as  others  except  for  a  difference  in  the 
densities;  for  example,  the  positions  for  60°  and  90°  are  the 
same  as  for  30°.  Higher  initial-phase  differences  shift  the 
source  positions.  Figure  19  is  an  extreme  example  of  what  can 
happen:  with  a  6  of  150°,  most  of  the  calculated  or  "apparent 

sources  are  shifted  outside  the  sky  map;  we  suspect  that  those 
sources  which  appear  on  the  map  are  probably  side  lobes  rather 
than  the  main  lobe.  This  suspicion  is  based  on  a  comparison 
of  Figures  20  and  21.  Figure  20  is  a  composite  map  of  the  re¬ 
sults  of  all  14  cases;  the  map  on  the  left  now  contains  the 
case  numbers  in  hexadecimal  notation,  starting  at  zero  for 
case  1.  The  sources  for  some  of  the  cases  are  lost,  since 
they  fall  at  the  same  coordinates  as  those  of  previous  cases. 
Figure  21  shows  the  Doppler  numbers  that  result  at  each  map 
coordinate  with  the  assumed  velocity  of  200  m/s  due  south; 
those  positions  that  are  on  a  line  perpendicular  to  the  veloc¬ 
ity  vector  are  all  at  the  same  Doppler  number.  In  Figure  20, 
we  can  see  that  most  of  the  calculated  source  positions  that 
are  not  correct  have  been  shifted  along  a  line  perpendicular 
to  the  velocity  vector;  that  is,  most  of  the  shifted  sources 
are  still  at  locations  which  result  in  the  same  Doppler  num¬ 
ber  as  do  the  correct  source  locations.  The  source  positions 
indicated  in  Figure  19,  on  the  other  hand,  seem  to  be  due  to 
the  side  lobes  of  sources  whose  positions  have  been  shifted 
completely  out  of  the  map. 

Those  sources  that  appear  on  the  same  line  (perpen¬ 
dicular  to  the  velocity  vector)  as  the  correct  source  posi¬ 
tions  yield  the  correct  velocities,  as  can  be  seen  in  Figure 
22,  which  is  a  computer  plot  of  the  case  velocities  for  all  14 
cases.  In  the  graph  on  the  left,  the  symbols  indicate  the 

azimuth  of  the  velocity  in  5°  increments,  the  "+"  signs  indi¬ 
cate  a  (see  equation  (268))  in  5  m/s  increments.  In  the 
graph  on  the  right,  the  horizontal  speed  is  indicated  by 
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and  the  vertical  speed  by  a  "  +  "  (V  =  up)  or  "-"  (V  =  down) 
in  increments  of  10  m/s.  As  shown  in  Table  5,  the  velocity 
inputted  into  the  test  program  was  a  horizontal  velocity  of 
200  m/ s  south;  so  with  the  values  of  6  that  were  tested  and 
with  the  chosen  original  source  positions,  only  two  cases 
yield  velocities  that  are  significantly  incorrect.  The  ini¬ 
tial  phase  difference  in  those  two  cases  were  150°  and  180°. 

The  most  realistic  case  is  number  14  where  the  phase 
differences  6  vary  from  pair  to  pair.  For  a  6  MHz  signal  a 
range  difference  of  25  meters  will  cause  a  2ir  shift  in  the 
phase  of  the  echoes.  It  must  therefore  be  assumed  that  the 
phase  differences  for  a  set  of  equal  Doppler  pairs  are  random. 
Figure  22  shows  that  for  this  situation,  as  simulated  in  case 
14,  the  velocity  is  reproduced  exactly. 

3.2  Tests  of  Measured  Drift  Data  from  Goose  Bay 

After  the  drift-measurement  technical  problems  in 
the  Digisonde  had  been  corrected  (see  section  1.7. 2. 2),  sev¬ 
eral  sky  maps  were  calculated  with  the  available  F-region 
drift  data  from  Goose  Bay.  Efforts  were  made  to  determine 
from  the  information  on  the  map,  the  general  shape  of  the  ion¬ 
ospheric  iso-density  surfaces  above  the  measuring  station  as 
well  as  the  direction  of  the  drift  motion.  Analysis  of  maps 
with  data  from  individual  cases  did  not  yield  any  satisfying 
results.  A  determination  of  the  direction  of  the  drift  motion 
by  analyzing  successive  cases  was  then  attempted.  This  was 
done  by  composing  "time  sequence"  maps  of  the  sources  with 
densities  within  4  c'.B  of  the  maximum  density  for  each  case, 
like  the  map  in  Figure  23,  which  compresses  four  successive 
cases  (covering  72  seconds)  of  data.  (The  map  legend  is  ex¬ 
plained  in  the  previous  section;  here  the  positive  Doppler 
numbers  run  higher  than  26,  so  the  symbols  AA,  BB,  CC ,  ...  are 
used  for  Dopplers  +27,  +28,  +29,  ...)  The  resulting  map  dis¬ 
plays  a  good  consistency  in  the  locations  of  the  sources; 
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however,  the  sequence  of  cases  (indicated  by  the  numbers  0  to 
3  in  the  map  on  the  left)  do  not  show  a  very  clear  progression 
of  the  reflection  areas  with  time.  This  map  is  typical  of 
most  maps  that  were  generated.  Even  if  the  movement  of  the 
reflection  areas  could  be  determined  from  the  maps,  this  move¬ 
ment  may  be  due  to  medium-  and  large-scale  TID's  and  may  not 
reflect  the  large-scale  convection  of  the  plasma.  Analysis  of  j 

earlier  drift  measurements  made  in  the  early  1970's  supported 
this  distinction  of  the  two  types  of  motions  (see  section 
1.7. 2.1).  It  was  then  decided  to  calculate  the  drift  veloci¬ 
ties  directly  from  the  map  data,  using  the  least-square-error  j 

method  described  earlier. 

Program  DRIFVEL  was  then  written  to  calculate  sev¬ 
eral  drift  velocities  for  each  case.  Calculating  only  one 
velocity  per  case  using  all  the  map  data  from  that  case  could 
lead  to  large  errors,  since  the  map  data  are  probably  not  all 
equally  reliable.  It  is  expected  that  the  measured  Doppler 
frequencies  and  calculated  positions  of  the  strongest  sources 
are  probably  more  accurate  (this  assumption  is  evaluated  be¬ 
low);  the  weakest  calculated  sources  may  actually  be  due  to 
noise  rather  than  to  echoes  from  real  sources.  On  the  other 
hand,  since  all  map  data  have  some  error  (for  example,  the 
digitizing  error),  using  only  a  few  sources  to  calculate  the 
velocity  can  also  lead  to  large  errors;  with  more  sources 
(provided  they  are  reliable),  the  errors  smooth  out  somewhat. 

Therefore,  the  procedure  used  was  to  calculate  the  first  so- 
called  individual  drift  velocity  with  the  five  strongest 
sources  of  a  given  case,  then  the  second  velocity  with  the 
six  strongest  sources,  etc.  By  starting  with  the  strongest 
sources  (using  a  minimum  of  five  sources  in  order  to  eliminate 
excessively  large  errors)  and  adding  one  more  source  to  each 
calculation,  we  hoped  that  each  succeeding  velocity  would  be 
relatively  consistent  with  the  previous  one  until  we  hit  unre¬ 
liable  map  data.  The  last  "good"  velocity  would  then  probably 
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be  the  most  accurate  one.  Several  cases  of  data  were  calcu¬ 
lated  in  this  way,  but  some  of  the  results  were  not  as  simple 
to  interpret  as  had  been  expected.  An  effort  was  made  to 
evaluate  each  velocity  by  its  least-square-error  e2;  this  was 
also  difficult  to  do  since  e2  increases  as  more  sources  are 
added,  even  if  they  are  reliable  sources.  That  is,  with  more 
sources  the  errors  smooth  out  (the  positive  errors  are  com¬ 
pensated  by  negative  errors),  but  e2  is  a  sum  of  the  squares 
of  the  errors.  A  weighting  factor  was  added  to  the  least- 
square-error  calculation  (several  different  factors  were 
tried,  as  explained  below),  but  there  were  still  cases  whose 
individual  velocities  varied  too  drastically  (in  speed  and/or 
direction)  to  be  considered  valid.  Also,  the  velocities  from 
case  to  case  sometimes  varied  more  than  would  be  expected  over 
periods  of  10  or  18  seconds. 

It  was  then  decided  to  determine  the  case  velocity 
vy  a  weighted  average  of  the  individual  velocities,  in  an  ef¬ 
fort  to  smooth  out  the  effects  of  the  bad  data;  and  to  apply 
further  smoothing  by  averaging  the  velocities  of  four  to  six 
consecutive  cases,  yielding  the  group-norm  velocity.  The  num¬ 
ber  of  cases  per  group  was  restricted  by  the  choice  to  use 
only  groups  for  which  the  frequencies  and  ranges  remained  con¬ 
stant  for  all  cases  of  the  group  (frequencies  and/or  ranges 
were  changed  during  drift  measurements  as  ionospheric  condi¬ 
tions  changed).  Later  results  have  shown  that  this  restric¬ 
tion  can  be  removed  in  the  future.  Both  types  of  averages 
(averaging  once  or  twice;  see  section  2.5.2)  were  calculated. 
Later,  the  same  calculations  were  also  tried  with  a  median, 
and  with  a  weighted  median,  instead  of  the  average.  The  out¬ 
put  of  DRIFVEL  at  the  time  was  in  the  form  of  a  list  of  the 
velocity  components  (both  Cartesian  and  spherical),  and  it 
was  difficult  to  draw  definite  conclusions  about  the  differ¬ 
ences  among  the  results  of  the  four  central-tendency  calcula¬ 
tions.  The  different  smoothing  methods  did  not  affect  the 
trend  of  the  velocities,  but  showed  in  the  standard  deviation 


of  the  values;  all  calculations  showed  some  cases  ar.d  groups 
whose  velocities  varied  drastically  from  the  general  trend. 

Meanwhile,  drift  measurements  covering  longer  time 
periods  than  the  previous  measurements  did  became  available, 
so  a  larger  amount  of  data  could  be  calculated  to  see  if  a 
trend  in  the  velocities  would  be  observed  over  several  hours. 
Groups  of  drift  measurements  made  about  every  fifteen  minutes 
from  18:00  to  05:00  AST  (217  18-second  cases;  drift  program 
number  9  had  been  used)  on  26/27  January  1982,  were  chosen  for 
analysis.  The  case  and  group-norm  velocities  were  calculated; 
an  average  source  position  was  also  calculated  from  the  source 
positions  (negative-  and  positive-Doppler  sources  separately) 
of  each  case,  as  well  as  an  average  position  for  each  group 
of  cases.  The  results  of  both  the  position  and  velocity  cal¬ 
culations  were  hand-plotted  to  permit  easier  analysis.  Each 
group  position  and  velocity  was  plotted  on  a  separate  graph, 
with  vectors  indicating  the  drift  direction  and  speed,  and 
plus  and  minus  signs  indicating  the  positive-  and  negative- 
Doppler  average  source  positions.  The  velocity  results  were 
very  promising,  showing  the  expected  westward  drift  in  the 
late  evening,  shifting  towards  the  east  around  midnight;  and 
the  results  were  very  similar  for  all  three  ranges  (heights) 
and  the  different  sounding  frequencies.  The  effects  of  the 
velocities  with  large  discrepancies  were  not  smoothed  out 
satisfactorily  by  any  of  the  central-tendency  calculations, 
but  at  least  we  could  tell  which  groups  were  departures  from 
the  general  trend. 

No  general  trend  could  be  determined  in  the  averaged 
source  positions.  This  may  be  due  in  part  to  the  shift  in  the 
virtual  position  of  the  sources  due  to  the  interaction  of  the 
sources  whose  Doppler  shifts  fall  on  the  same  Doppler  line,  as 
discussed  in  the  previous  section.  Note  that  sources  close  to 
each  other  but  far  enough  apart  to  be  at  slightly  different 
Doppler  frequencies  may  still  fall  on  the  same  Doppler  line 
and  therefore  still  affect  each  other’s  calculated  positions. 


This  is  especially  true  since  the  Doppler  line  is  widened  by 
spectral  averaging.  Spectral  averaging  helps  the  determina¬ 
tion  of  the  drift  velocity  by  diminishing  side  lobes  and  noise 
but  its  effect  on  the  determination  of  the  positions  of  re¬ 
flection  areas  in  the  ionosphere  is  less  clear. 

Program  DRIFVEL  was  then  modified  to  print  the 
drift-calculation  results  in  the  form  of  an  azimuth  graph  and 
a  speed  graph,  and  to  print  a  separate  graph  of  the  root-mean- 
square  error  e  , 

e  =  (e2  )1/2  (279) 

where  e2  is  the  least-square  error  for  the  individual  velocity 
calculations.  This  concise  format  made  it  much  easier  to  com¬ 
pare  the  results  of  various  calculations  using  different  sta¬ 
tistical  weighting  and  smoothing;  it  also  cut  down  drastically 
the  time  involved  in  plotting  the  calculated  velocity  vectors 
since  this  step  is  done  by  the  computer. 

Drift  data  from  F-region  measurements  made  in  Goose 
Bay  on  20/21  January  1982,  from  20:30  to  12:00  AST,  were  used 
for  the  following  test.  Groups  of  four  to  six  successive  18- 
second  cases  from  measurements  made  approximately  15  minutes 
apart  were  chosen  from  the  available  data,  for  a  total  of  280 
cases.  The  data  of  the  first  frequency  number  was  used.  Four 
separate  graphs  of  the  individual  velocities  were  calculated, 
with  the  sources  sorted  in  decreasing  order  of  P  ,  increasing 
order  of  P  ,  decreasing  |d|  and  increasing  |d|.  In  each  run, 
the  first  individual  velocity  for  each  case  was  calculated 
using  the  first  four  sources  instead  of  the  first  five,  in 
order  to  re-evaluate  our  choice  of  the  minimum  number  of 
sources  to  be  used.  All  least-square-error  calculations  were 
done  without  weighting.  The  purpose  of  this  test  was  to  de¬ 
termine  if  there  was  any  relationship  between  the  error  e  (we 
call  it  error  from  now  on,  but  we  mean  RMS  error)  and  the 
density  of  the  sources,  or  between  the  error  and  the  Doppler 


number,  in  order  to  determine  the  validity  of  using  the  den¬ 
sity  and/or  the  absolute  value  of  the  Doppler  number  as  a 
weighting  factor  in  the  least-square-error  calculation.  Also, 
if  it  turned  out  that  the  weaker  sources  caused  large  errors, 
we  would  set  a  higher  minimum  density  threshold  for  the  FWPD 
calculation  in  program  SKYMAP  (where  the  threshold  is  set  to 
20  dB  below  the  strongest  source,  as  explained  in  section 
2.4.4). 

Examination  of  the  error  graphs  of  the  above  four 
runs  showed  that  when  we  started  with  the  strongest  sources 
or  the  lowest  |d|,  the  error  increased  as  more  sources  were 
added  (which  is  to  be  expected,  as  explained  above),  but  also 
there  were  occasionally  some  sudden  jumps  in  the  increase. 

In  the  error  graphs  from  the  calculations  starting  with  the 
weakest  sources  or  with  the  highest  |d|,  some  cases  had  errors 
starting  quite  high  and  decreasing  as  more  sources  were  added. 
Closer  examination  showed  that  the  large  errors  were  caused 
by  sources  with  |d|  around  25  or  higher.  (These  sources  have 
generally  small  amplitudes. )  Typical  errors  for  cases  with¬ 
out  any  Dopplers  higher  than  20  were  between  5  to  20  m/s;  with 
higher  Doppler  numbers,  the  errors  jumped  to  100-150  m/s. 

The  cases  with  high  Dopplers  were  relatively  few  in  this  group 
of  data,  so  we  tested  a  two-hour  portion  of  the  26/27  January 
data,  which  included  about  55  cases,  most  of  which  had  high 
Dopplers.  Velocity  calculations  were  made  using  only  those 
sources  with  |d|  above  20;  most  of  these  cases  yielded  errors 
in  the  order  of  90  to  100  m/s.  It  seems  that  the  calculated 
sources  with  these  high  Doppler  numbers  are  due  to  noise 
and/or  to  reflection  areas  whose  motion  is  not  the  same  as 
the  large-scale  plasma  drift  that  we  are  trying  to  measure. 
Velocities  were  also  calculated  with  the  sources  limited  to 
1 d |  from  11  to  20.  Some  of  these  results  had  errors  of  the 
order  of  40  to  70  m/s;  but  many  cases  had  much  lower  errors. 
Later  calculations  of  the  group-norm  velocities  with  a  weighted 


e2  calculation,  and  using  the  median  as  the  central-tendency 
determination  of  the  case  and  group-norm  velocities,  showed 
that  velocities  calculated  with  |d|  from  1  to  20  or  with  |d| 
from  1  to  10  were  not  significantly  different.  Therefore,  it 
was  decided  to  use  sources  with  |d|  up  to  20  for  all  future 
calculations . 

Once  the  large  errors  were  removed  by  eliminating 
the  higher  Doppler  numbers,  there  was  no  conclusive  evidence 
that  the  minimum  density  threshold  should  be  changed  for  the 
FWPD  calculation  in  program  SKYMAP;  nor  was  it  clear  which 
weighting  factor  should  be  used  in  the  e2  calculation.  Orig¬ 
inally,  six  different  factors  had  been  tried  for  the  least- 
square-error  weights: 

1.  log  density  P  ; 

s 

2.  log  density  *  |d|; 

3.  linear  P  ; 

s  * 

4.  linear  P  x  | d | ; 

s 

5.  |  d  |  ; 

6.  no  weighting. 

It  had  already  become  clear  from  the  handplotted  graphs  of  the 
26/27  January  data  that  the  linear  density  was  superior  to  the 
log  density.  The  last  four  weights  were  compared  using  the 
20/21  January  data  by  printing  together  on  the  same  set  of 
graphs  the  individual  velocities  calculated  with  each  weight, 
with  the  resulting  errors.  (Program  DRIFVEL  was  modified 
temporarily  for  this  purpose;  the  version  of  the  program 
listed  in  Appendix  C  does  not  have  this  option. )  The  calcu¬ 
lated  velocities  were  more  consistent  with  each  other  within 
each  case,  and  the  errors  were  smaller,  with  the  linear  den¬ 
sity  alone  used  as  the  weighting  factor.  In  most  cases,  the 
results  with  the  other  three  weights  were  not  drastically 
different;  but  there  were  several  cases  where  the  difference 
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was  significant  enough  to  justify  preferring  the  linear- 
density  weight. 

With  the  cause  of  the  large  errors  removed,  the  min¬ 
imum  number  of  sources  for  the  first  individual  velocity  cal¬ 
culation  could  be  set  higher;  but  setting  the  minimum  too  high 
eliminates  many  cases  which  yield  only  a  few  sources.  It  was 
finally  decided  after  examination  of  the  data  that  a  minimum 
of  five  sources  appeared  to  be  a  good  compromise. 

Before  the  discovery  that  the  large  discrepancies 
in  some  of  the  velocities  were  due  to  high  Doppler  numbers, 
it  had  been  observed  that  some  of  these  velocities  had  a  ver¬ 
tical  component  Vz  of  several  hundred  meters  per  second.  It 
is  known  from  various  experiments  that  the  vertical  drift  in 
the  ionosphere  is  generally  more  of  the  order  of  tens  of  m/s; 
even  under  the  most  disturbed  conditions,  vertical  velocities 
cannot  be  expected  to  be  greater  than  150-200  m/s.  Therefore, 
sources  which  yielded  velocities  with  [V  |  greater  than  200 
m/s  were  ignored.  The  tests  discussed  above  were  done  with¬ 
out  this  limitation;  and  with  the  data  tested,  the  vertical 
velocities  have  reasonable  values  when  the  sources  are  limited 
to  those  with  lower  Dopplers.  However,  in  the  final  results 
shown  in  the  next  section  (as  well  as  in  future  drift  calcu¬ 
lations),  this  limitation  is  kept  since  it  can  do  no  harm. 

Once  we  were  satisfied  with  the  results  of  the  indi¬ 
vidual  velocity  calculations,  we  proceeded  to  evaluate  the 
weighted  average  (calculated  once  or  twice),  the  median  and 
the  weighted  median  in  determining  the  case  velocities  and  the 
group-norm  velocities.  All  resulting  group-norm  graphs  were 
essentially  the  same,  so  it  was  decided  to  use  the  median  in 
future  calculations. 

The  last  variation  that  we  tried  in  the  drift  calcu¬ 
lations  was  ignoring  those  sources  which  result  in  values  of 
e2  greater  than  a  chosen  maximum.  The  group-norm  velocities 
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were  calculated  for  all  three  sounding  frequencies  with  the 
data  from  26/27  January,  with  a  maximum  e2  of  250  m2/s2  (i.e. 
a  RMS  error  of  about  16  m/s)  and  compared  to  the  same  calcula¬ 
tions  without  any  limit  on  e2;  the  resulting  graphs  did  not 
show  any  significant  differences.  Apparently,  velocities  with 
larger  errors  are  filtered  out  by  the  median  calculation. 

3.3  Final  Results 

Drift  velocities  were  calculated  from  measurements 
of  four  different  days:  29  August  1981,  20/21  January  1982, 

23  January  1982  and  26/27  January  1982  (see  Figures  24  to  27). 
As  explained  in  the  previous  section,  the  map  data  were  first 
sorted  in  order  of  decreasing  source  density,  and  the  individ¬ 
ual  velocities  were  calculated  with  a  minimum  of  five  sources, 
using  only  sources  with  Doppler  numbers  between  -20  and  +20. 
The  linear  density  was  used  as  a  weighting  factor  in  the 

least-square-error  calculation.  Any  map  data  yielding  |V  | 

z 

greater  than  200  m/s,  if  there  were  any,  were  ignored. 

The  graphs  in  this  section  display  the  group-norm 
velocities  for  the  three  simultaneous  drift  measurements  (at 
three  different  sounding  frequencies  and  ranges;  drift  program 
number  9  had  been  used  for  these  drift  measurements),  in  terms 
of  the  ranges: 

R  =  200  +  10X  [km3  (280) 

X  =  0,  1,  2,  . . . ,  9,  A,  B,  ...  (281) 

where  the  letters  A  to  V  are  used  for  the  numbers  10  to  31; 
as  explained  in  section  2.4.4,  measurements  at  ranges  above 
510  km  (200  +  10*31)  are  not  calculated  in  program  SKYMAP. 

Each  group-norm  velocity  is  the  median  of  the  case  velocities 
of  the  group,  and  the  case  velocity  is  the  median  of  the  in¬ 
dividual  velocities  of  the  case.  The  solid  line  in  the  graphs 
indicates  the  all-frequency  velocities,  each  of  which  is  the 
median  of  the  three  corresponding  group-norm  velocities. 
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We  consider  first  the  results  in  Figures  26  and  27, 
where  the  drift  observations  start  before  midnight.  The 
plasma  drifts  in  a  generally  westward  direction  until  mid¬ 
night,  then  shifts  towards  the  east;  this  is  what  we  would  ex- 
pect  (see  section  1.6.3  and  references  therein).  Before 

midnight,  both  the  direction  and  speed  are  similar  for  all 
three  ranges  of  each  group,  although  after  midnight  there  are 
groups  where  the  velocities  are  not  as  consistent  for  all 
ranges.  Most  measurements  are  fifteen  minutes  apart,  so  it  is 
quite  possible  that  the  calculated-velocity  variations  as  a 
function  of  time  reflect  true  variations.  Because  of  a  fortu¬ 
nate  typing  mistake  in  punching  computer  cards  when  choosing 
the  drift  data  to  be  calculated,  a  series  of  seven  drift  mea¬ 
surements  only  two  or  three  minutes  apart  were  also  calculated 
(see  Figure  27,  21:45  to  22:00);  these  velocities  show  rela¬ 
tively  little  variation  during  the  fifteen-minute  period. 

The  first  three  graphs  include  drift  velocities  cal¬ 
culated  from  data  measured  after  sunrise.  The  first  graph 
starts  at  04:20  because  no  earlier  drift  measurements  were 
made  that  day.  The  blanks  from  04:20  to  05:42  indicate  that 
the  sky  map  calculation  yielded  less  than  five  sources  for 
each  case  of  drift  measurements  during  that  time  period.  (The 
data  from  cases  yielding  less  than  five  sources  are  not  used 
to  calculate  drift  velocities;  see  section  3.2.)  On  this  and 
the  other  graphs,  some  times  have  less  than  three  velocities 
for  the  same  reason.  The  second  graph  starts  at  04:32  because 
even  though  drift  measurements  were  started  the  previous  even¬ 
ing,  all  F-region  echoes  before  04:32  were  blanketed  by  a 
strong  Es  layer.  The  median  of  the  three  velocities  is  more 
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The  results  of  20/21  and  26/27  January  1982  also  com¬ 
pare  favorably  with  drift  direction  and  velocity  shown 
for  averaged  data  from  the  Millstone  Hill  Incoherent 
Scatter  Radar  (Oliver  et .  al. ,  1983). 


129 


m 


m 


jagged  during  this  time  period.  At  sunrise,  there  is  a  sud¬ 
den  surge  of  ionizing  energy  in  the  ionosphere;  the  changes 
in  electron  concentration  along  the  wave  propagation  path 
causes  the  high-frequency  phase  to  change.  This  apparent 
Doppler  shift  is  interpreted  as  motion  of  the  reflecting 


ionization. 
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4.0  CONCLUSIONS 


The  Doppler  method  of  measuring  plasma  drift  seems 
to  be  valid  if  we  evaluate  the  results  in  the  lighl  of  state¬ 
ments  by  Hargreaves  and  by  Rawer  and  Suchy  (the  latter  is  in 
the  context  of  fading  measurements): 

The  small-scale  structure  of  the  atmosphere  tends  to  be 
irregular  and  unpredictable  in  detail  —  though  predic¬ 
tions  of  a  statistical  kind  may  be  possible.  The  dis¬ 
tinction  can  be  illustrated  by  reference  to  meteorology, 
in  which  the  forecaster  might  predict  the  average  wind 
speed  and  direction,  but  it  would  be  a  hopeless  task  to 
attempt  a  prediction  of  the  precise  wind  vector  for  a 
stated  place  and  instant  of  time.  8 

...  individual  determinations  with  neighbouring  antennae 
triangles  may  give  considerable  differences.  So  the 
fluctuations  in  time  and  space  are  another  reason  to 
disregard  individual  observations  and  accept  only  the 
median  of  several  of  these  as  a  reasonable 
det  erminat ion . 8  4 


^Hargreaves  (1979),  p.  107. 

84 

Rawer  and  Suchy  (1967),  p.  407. 
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5 . 0  RECOMMENDATIONS 


The  next  step  in  the  study  of  high-latitude  iono¬ 
spheric  plasma  motion  is  to  analyze  the  drift  measurements  of 
a  large  number  of  days  in  order  to  determine  if  there  are  typ¬ 
ical  features  which  are  repeated  from  day  to  day  in  the  drift- 
movement  pattern,  and  to  distinguish  the  diurnal  and  seasonal 
variations  in  these  features.  Also,  by  analyzing  all  drift 
measurements  made  instead  of  small  groups  of  measurements 
fifteen  minutes  apart,  it  should  be  possible  to  evaluate  the 
validity  of  the  data  for  those  time  periods  (for  example,  the. 
morning  measurements)  which  yielded  large  variations  in  the 
velocities,  by  determining  whether  the  calculated  velocity 
changes  with  time  in  a  steady  or  random  manner. 

The  drift  convection  pattern  (discussed  in  section 

8  5 

1.6.3)  characteristic  of  the  polar  cap  has  been  observed  in 

the  F  region  with  ionograms  and  optical  techniques  from  the 

8  6 

AFGL  Airborne  Ionospheric  Observatory  (AIO)  during  flights 
from  Thule,  Greenland  (which  is  about  23°  of  latitude  north 
of  Goose  Bay)  and  while  the  AIO  was  on  the  ground  at  Thule. 
During  periods  of  high  magnetic  activity  the  auroral  oval, 
which  bounds  the  polar  cap,  extends  down  to  mid-latitudes  and, 
at  night.  Goose  Bay  may  be  directly  below  or  poleward  to  the 
oval.  During  more  quiet  periods  Goose  Bay  is  south  of  the 
equatorward  edge  of  the  oval.  In  order  to  determine  if  and 
when  the  plasma  drift  at  Goose  Bay  forms  part  of  the  polar  cap 
convection  pattern,  it  would  be  extremely  useful  if  another 


°The  polar  cap  is  the  region  where  the  geomagnetic- 
field  lines  are  vertical  or  nearly  vertical.  It  is 
along  these  magnetic  lines  that  energetic  solar  par¬ 
ticles  penetrate  deep  into  the  atmosphere.  See  Har¬ 
greaves  (1979),  section  8.2.2. 
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See  Euchau  et  al  (1982) 


Digisonde  station  with  the  capability  of  making  multi-antennae 
drift  measurements  were  put  into  operation  at  Thule,  so  that 
the  drift  measurements  from  Goose  Bay  could  be  correlated  with 
those  from  Thule. 
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TESTSKY  (ULCAR) 


00100  PROGRAM  TESTSKY* INPUT. OUTPUT, TAPE1 ,TAPE3,TAPE8,TAPE9) 

00  HOC 

00130C 

00140C  THIS  PROGRAM  GENERATES  A  TIME  SEQUENCE  OF  DATA  POINTS  WHICH 
00150C  SIMULATES  DRIFT  DATA  RECEIVED  FROM  ONE  OR  MORE  SOURCES  BY  A  SET  OF 
OOISOC  ANTENNAS  IN  THE  COMPLEX  PLANE,  IN  THE  SAME  FORMAT  AS  THE  DGS  128PS 
00170C  IN  GOOSE  BAY,  LABRADOR.  THE  TIME  SEQUENCE  IS  TRANSFORMED  INTO  THE 
00180C  FREQUENCY  DOMAIN  BY  SUBROUTINE  FORER.  SPECTRAL  AVERAGING  (HANNING 
00190C  WEIGHTING  APPLIED  TO  THE  FREQUENCY  DOMAIN)  IS  DONE  IN  THE  COMPLEX 
00200C  DOMAIN:  FROM  EACH  SPECTRAL  LINE  WEIGHTED  BY  A  FACTOR  OF  TWO,  THE 
00210C  ADJACENT  SPECTRAL  LINES  ARE  SUBTRACTED.  FOR  PROGRAM  NUMBERS  IN=5 
00220C  OR  8,  ALL  SPECTRAL  LINES  ARE  KEPT?  THE  FIRST  SPECTRAL  LINE  (OF 
00230C  DOPPLER  FREQ.  ZERO)  IS  DOUBLED,  BUT  ONLY  THE  SECOND  SPECTRAL  LINE 
00240C  IS  SUBTRACTED.  FOR  IN-6,7,9,  ONLY  THE  ODD-FREQUENCY  (E.G.:  1/16,3/16 
00-I50C  HZ, ETC. )  SPECTRAL  LINES  ARE  KEPT,  TIC  INFORMATION  FROM  THE  EVEN-FREQ. 
00260C  LINES  (0  HZ, 2/16  HZ,  ETC.)  BEING  INCLUDED  ONLY  IN  THE  AVERAGING.  THE 
00270C  RESULT  IS  TRANSFORMED  FROM  (REAL, I MAG)  TO  ( AMPLITUDE, PHASE ) ,  AND  IS 
00280C  THEN  PACKED  AND  BUFFERED  OUT  ONTO  TAPES  BY  SUBROUTINES  C720  AND 
00290C  C2160,  IN  THE  SAME  FORMAT  AS  TIC  DATA  ON  TAPES  GENERATED  BY  THE 
00300C  DIGISONDE,  EXCEPT  THAT  DATA  IS  GENERATED  FOR  ONLY  ONE  FREQUENCY  AND 
00310C  RANGE.  (THE  DGS  128PS  MEASURES  DRIFT  AT  THREE  FREQUENCIES  AND  RANGES 
003Z0C  FOR  IN=8.9  AND  AT  SIX  FOR  IN-5,6,7.)  ALSO,  TESTSKY  IS  NOT  FULLY 
00330C  CODED  FOR  PROGRAM  IN=7.  WHICH  REQUIRES  FOUR  OUTPUT  RECORDS  PER 
00340C  CASE  INSTEAD  OF  TWO. 

00330C 

003G0C  FR.FI ,HAMPLTD,HPHASE,  MUST  BE  DIMENSIONED  AT  LEAST  TO  NMAX,  NMAX= 
00370C  =NPTS  IF  NPTS  IS  A  POWER  OF  2,  NMAX = NEXT  HIGHER  POWER  OF  2  OTHERWISE. 
00380C  FOR  DGS  128PS.  NMAX*NPTS.  DIM  OF  SINS  AT  LEAST  ((DIM  OF  FI)/4)+l. 
00390C  HFR.HFI,  DIMENSIONED  AT  LEAST  TO  NSL.  THESE  ARRAYS,  AND  ARRAYS 
00400C  FM  TO  IBUF1  IN  SUBROUTINE  C720,  AND  ARRAY  IBUF  IN  C2160,  ARE 
004 IOC  DIMENSIONED  TO  THE  MAXIMUM  PRESENTLY  REQUIRED,  BUT  MAY  NEED  LARGER 
0C420C  DIMENSIONS  IF  DIGISONDE  PARAMETERS  ARE  CHANGED. 

00430C  (DIMENSION  REQUIREMENTS  ARE  DEFINED  IN  C720  AND  C2160  COMMENTS). 
00440C 

00450C  FOR  DGS  128PS  DATA.  NPTS=NO.  OF  POINTS  IN  THE  TIME  SEQUENCE "NMAX 
00460C  =NQ.  OF  SPECTRAL  LINES  BEFORE  SPECTRAL  AVE'G=64  FOR  IN=5;  128  FOR 
00470C  IN=6,8;  256  FOR  IN=7,9.  AFTER  SPECTRAL  AVE'G,  NSL “NO.  OF  SPECTRAL 
00480C  LINES =64  FOR  IN=5,6;  128  FOR  IN«7,8,9. 

004  .  DC 

00  ' OOC  BEFORE  SPECTRAL  AVERAGING,  FREQ.  SPECTRUM  IS  APPROXIMATELY: 


0G510C  IN  DOPFREQ  CHZ3  1=1  TO  NMAX  OF 

00520C  5  0, -1/8, -2/8,..., -31/8, 32/8, 31/8,..., 1/8.  1  TO  64  1/8 

001- JOC  6  0, -1/16, -2/16, ...,-63/16, 64/16, 63/16,..., 1/16.  1  TO  128  1/16 

00S40C  7  0. -1/32. -2/32,..., -127/32, 128/32, 127/32,..., 1/32.  1  TO  256  1/32 

00t*‘J0C  8  0, -1/8, -2/8,..., -63/8, 64/8, 63/8,..., 1/8.  1  TO  128  1/8 

00560C  9  0, -1/16, -2/ 16, . . . ,-127/16,128/16, 127/16, . . . , 1/16.  1  TO  256  1/16 


005 /OC  WHERE  DF»DOPP-FREQ  RESOLUTION  CHZJ  BEFORE  SPECTRAL  AVERAGING. 
00f>80C 

00590C  AFTER  SPECTRAL  AVE'G,  AND  AFTER  AFTER  NEC  ft  POS  DOPPLERS  HAVE 
00600C  BEEN  SEPARATED  AND  ORDER  OF  POS  DOPPLERS  HAS  BEEN  REVERSED  (IN 
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OOSIOC  SUBROUTINE  C7Z0 ) , THE  ABSOLUTE  VALUE  OF  THE  NEG  AND  POS  DOPPLER 
OOf.ZOC  FREQUENCIES  ARE  APPROXIMATELY: 


00630C 

IN 

OOPFREQ 

CHZ3  I 

B1  TO  NSL/2 

DFRCHZ) 

00S40C 

5 

0,1/8, 2/8,. 

..,31/8 

1  TO  32 

1/8 

00650C 

6 

1/16,3/16,. 

...63/16 

1  TO  32 

1/8 

00660C 

7 

1/32,3/32,. 

..,127/32 

1  TO  64 

1/16 

00670C 

8 

0,1/8, 2/8,. 

..,63/8 

1  TO  64 

1/8 

00680C 

9 

1/16,3/16,. 

..,127/16 

1  TO  64 

1/8 

OOSsOC  WHERE  DFR*DOPP-FREQ  RESOLUTION  AFTER  SPECTRAL  AVERAGING. 

8o7l8£  explanation  of  kprint  usage: 

00720C  (FUNCTIONS  CAN  BE  CALLED  SIMULTANEOUSLY  BT  SETTING  KPRINT  EQUAL 
00730C  TO  THE  SUM  OF  THE  INDIVIDUAL  K PRINTS) 

00740C 

00750C  KPRINT:  PROGRAM  FUNCTION: 

00760C  1  CALCULATE  DOPPLER  FREQUENCIES  FROM  DRIFT  VELOCITY 

00/70C  SPECIFIED  ON  TAPE1.  (OTHERWISE.  DOPP.  FREQ'S 

OO70OC  MUST  BE  DEFINED  ON  TAPE1.*  SEE  FREQ.  SPECTRUM  ABOVE,* 

00790C  REPLACE  1/8  BY  .12254902,  AND  MULTIPLES  OR  SUB- 

00800C  MULTIPLES  OF  1/8  BY  MULT.  OR  SUB-MULT.  OF  .12254902) 

008 IOC  2  PRINT  VALUES  (TAPED 

008/OC  4  PRINT  ANTENNA  NO.,  LOCATION,  NOISE  PARAMETERS 

00830C  8  PRINT  SOURCE  NO.,  ANT.  PHASE,  TOTAL  PHASE 

00840C  (TOT.  PH. = ANT.  PH.  ♦  PHINIT,  WHERE  PHINIT  IS 

008S0C  INITIAL  PHASE  AT  THE  SOURCE) 

00860C  16  PRINT  TIME  SEQUENCE  (REAL.  I HAG) 

00870C  32  PRINT  FREQ.  SEQUENCE  (REAL,  I MAG) 

00880C  2048  SKIP  SPECTRAL  AVE'G 

00C80C  (THE  SAME  DOPPLER  LINES  APPEAR  AT  THE  OUTPUT. 

00900C  BUT  THE  ADJACENT  SPECTRAL  LINES  ARE  NOT  SUBTRACTED) 

OOaiOC  64  PRINT  AVERAGED  SPECTRAL  LINES  (REAL, I MAG) 

00920C  128  PRINT  AVE'D  SPECTRAL  LINES  (AMPLITUDE,  PHASE) 

OOitfOC  256  PRINT  NEG  &  POS  DOPPLERS  AFTER  THEY  ARE  SEPARATED 

00940C  AND  ORDER  OF  POS  DOPP  HAS  BEEN  REVERSED 

00350C  512  PRINT  NEG  &  POS  DOPPLERS  AFTER  SCALING 

00960C  1024  PRINT  DATA  AFTER  PACKED  INTO  TWO  RECORDS 

00970Ca33BBBBBBB3B3aB3BBBBBBaBBBBBB3aB3BB3BBBBa333BBBBB3BBBBBBBBBBBBBB3B3BBBBB 

009B0C 

00990  COMMON  KPRINT, RADIAN 

01000  COMMON  FR(256) , FI (256) ,SINS(65) 

01010  DIMENSION  HAHPLTD(256) ,HPHASE(256> ,HFR(128) ,HFI(128) 

01020  COMPLEX  ANT2 

01030  DIMENSION  ANT3(3)  %  EQUIVALENCE (ANT3.ANT2) 

01040  DIMENSION  S3(3) 

01050C 

01060Ca8BBBBBBBBBBBBBBBBBBBBBBBBaBBBaBBBB3BBBa3BB33BB3BBBBBBBBBBBBB333BBBBB3BB 
01070C  SOURCE  INFORMATION. 

01080C  DIRECTION  AND  INITIAL  PHASE  AT  THE  SOURCE  IN  DEGREES. 
01090CBBBBBaBBBBBBB8BBB8BBBBBBBBaBBBSBasBBB8BBaBB3BS8BBBBaiBBSBBBBBBB3a8BBBBBBB 

onooc 

OHIO  DIMENSION  VX(32) ,VY(32) ,VZ(32> ,VXYZ(3) 
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01120  DIMENSION  SAZMTH(32) ,SZENITH(32) .AMPLTDEI32) ,D0PFREQ(32) 

01130*  ,PHINIT(32) 

01140  DIMENSION  RX(32> ,RY<32> ,RZ<32) 

01150C 

. . . . . . ja*«ss*s*ss 

01170C  ANTENNA  INFORMATION. 

Oil  ROC  ANTENNA  LOCATION  IN  METERS. 

Oil  HOC  RAD I AN=RAD IANS/DEGREE. 

01 700C3- ========================== =I====:::=I,3=333==3:,333333=:,!!I================== 

01210C 

01220  COMPLEX  ANTI 10) 

01?30  REAL  NOISE! 10) 

01240  DIMENSION  TINITI10J  .TINCRUO) 

01250  COMMON  /BLK/FMAXMAG.TMOPI 

01780C 

01770  NAMELIST/VALUES/CASE. KPRINT, IN.KSOURCE.VX.VY.VZ. 

01280+  SAZMTH . SZEN I TH  r  AMPLTDE  r  DOPFREQ ,  PH  I N I T ,  FREQ » 

01290+  NANT, ITT, ANT .NOISE .SEED 

01300  DATA  TINIT/10+0.0/ 

01310  DATA  C/2.997S25E8/ 

01320  DATA  TM0PI/6.283185307179586/ 

01330  DATA  ANT3/3+0 . 0/ , NSWTCH/O/ 

01340  REMIND  1 

01350  REMIND  3 

01360  REMIND  8 

01370  REMIND  9 

01380C 

OKISOC3333333333333333333333333333333333333333333333333333333333333333333333333 

01400C  READ  VALUES. 

oi4ioc  determine: 

01420C  ITIME=TIME  OF  EACH  MEASUREMENT  (CASE) I 
01430C  TINCR=DELTA-T  FOR  TIME  SAMPLES! 

01440C  NPTS=NO.  OF  DATA  POINTS  IN  TIME  SEQUENCE. 

01450C  3 NO.  OF  SPEC.  LINES  BEFORE  SPEC.  AVE'G! 

014B0C  NSL=NO.  OF  SPEC.  LINES  AFTER  SPEC.  AVE'G! 

01470C  DFR=DOPP-FREQ  RESOLUTION  AFTER  SPECTRAL  AVERAGING! 

01480C  DF2=D0PP.  FREQ.  OF  FIRST  SPECTRAL  LINE! 

01490C  USCALE 3 . 707+S I NZMAX /20 

01500C  SCQGRD . -SYSTEM  SCALE  FOR  THE  UNIT  VECTORS! 

01510C  RX,RY,RZ=X,Y,Z  COMPONENTS  OF  THE  UNIT  SOURCE-POSITION 
01520C  VECTOR  R! 

01330C  DOPPLER  FREQUENCIES. 

01540C  OUTPUT  OF  DOT=VR3DOT  PRODUCT  OF  VELOCITY  VECTOR  V 
01550C  AND  UNIT  SOURCE-POSITION  VECTOR  R. 

01560C  PRINT  VALUES. 

015  70C33333333 333333333333333,333333333333333 3333333333333333333333333333333333 
01580C 

01590  ITIME3KT=0 

01600  RADIAN3. 01 74532925199433 

01610  1  CONTINUE 

01620  NPTS0«0 
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01630  READ  (1, VALUES) 

01640  IF(CASE.LT.O)  00  TO  28 

01650  KT*KT+1  *  IF(KT.£Q.7)KT«1 

01660  ITIME«ITINE+10+((KT/6)*40) 

01670  DO  17  I=1»NANT 

01680  17  TINCR(I)=.1275/(l+IN/8) 

01690  NPTS»64+((IN/6)*64)  »  IF( IN.EG.7.0R. IN.EG.9>NPTS=256 

01700  NSL =64+64* (IN/7) 

01710  DFR*. 12254902  %  IF( IN.EQ.7)  DFR«DFR/2 

01720  DF2*DFR/2  %  IF(IN.EQ.5.0R.IN.EQ.8)  DF2=0 

01730  .  USCALE=( .707/20)*AMINl(.707» (C/(FREQ*100) ) ) 

01740C 

01750  DO  4  15=1 rKSOURCE 

01760  ZENRAD=SZENITH(I8)«RADIAN  »  AZINRAD=SAZNTH( IS)*RADIAN 

017/0  RX(IS)=SIN(ZENRAD)*COS(AZINRAD) 

01780  RY(IS)»-SIN(ZENRAD)*SIN(AZIMRAD) 

01790  4  RZ< IS)=COS(ZENRAD) 

01800C 

01B10  IF( (KPRINT.AND. 1 ) .EQ.O)  GO  TO  14 

01820C 

01830  DO  16  IS=1, KSOURCE 

01840  VXYZ(1 )=VX( TS)  *  VXYZ(2)=VY(I6)  *  VXYZ(3)«VZ< IS) 

01650  S3( 1 )=RX( IS)  *  S3(Z)=RY(IS>  %  S3(3)=RZ(IS) 

01660  CALL  D0T(VXYZ,S3,VR) 

01870  16  D0PFREG(IS)=-2*(VR/C)*FREQ 

01880C 

01890  14  IF( (KPRINT .AND. 2) .EQ.O)  GO  TO  15 

01900C 

01910  PRINT  105,  CASE, KPRINT , IN, KSOURCE 

01920  105  FORMAT! "  CASE«",F3.0,",  KPRINT«",I5,",  IN«",I1, 

01930+  a,  NO.  OF  SOURCES-", 13) 

01940C 

01950  IF< (KPRINT. AND. D.EG.O)  GO  TO  100 

01960  PRINT  110 

01970  110  FORMAT ( / , "  SOURCE", 6X,"VX".7X,"VY",7X,"VZ",6X,"AZIM",5X,"  ZEN",5X, 

01960+  "X",6X,"Y",4X,"AMPL",3X,"D0PFREQ",1X,"  INIT  PH",2X,"D0PP.  NO.") 

01990C 

02000  DO  120  IS-1, KSOURCE 

02010  120  PRINT  130,IS,VX(IS),VY(IS),VZ(IS),SAZnTH(IS),SZENITH(IS), 

02020+  (RX( ISJ/USCALE) , (RY(IS)/USCALE> ,AHPLTDE( IS) , 

02U.I0+  DOPFREG( IS) ,PHINIT( IS) , ( ( (ABS(DOPFREB( IS) >-DFZ)/DFR+l )* 

02040+  ((DOPFREQ( IS )♦. 0000001 )/ABS( (DOPFREQ( IS >+.0000001 ) > ) > 

02050  130  FQRMAT(I3,2X,5F9.Z,2F7.1,F7.Z,F10.4,2F9.Z) 

02u80  GO  TO  140 

02070C 

02060  100  PRINT  150 

02090  150  FORMAT!/"  S0URCE",5X,"AZIH",6X,"ZEN",5X,"X",6X,"Y",4X,"AMPL",3X, 

02100+  "DOPFREQ'.IX,"  INIT  PH" ,2X,"D0PP.  NO.") 

02) IOC 

02120  00  160  IS*1,K50URCE 

02130  160  PRINT  170,IS,SAZMTH(IS),SZENITH(IS).(RX(IS)/USCALE), 


TESTSKY  (ULCAR) 


02140+  (RY( IS)/USCALE) rAHPLTDE( IS) .DGPFREQ(IS) » 

02150+  PHINIK IS) r  < ( (ABS(D0PFREQ( IS) )-DF2)/DFR+l >*( (OOPFREQ(IS>+ 

02160+  .0000001  )/ABS((DOPFREQUS)+.0000001))>) 

02170  170  F0RMAT(I5,2X,2F9.2,2F7.1 »F7.2»F10.4»2F9.2) 

07180C 

02190  140  PRINT  180.<FREB/<1E+6)),NANT,ITT 

02200  190  FORMAT!/"  SOUNDING  FREQa",F8.4»"  MHZ.  NO.  OF  ANT*",I2,",  ITT** 

02210+  .12/) 

02220C 

02230  PRINT*. "ANT.  COORD. <X,Y)a  “ , (ANT(IA) ,IA»l ,NANT) 

02240  PRINT*,"  " 

02/S0  PRINT*. "NOISE =  ", (NOISE! IA),IAal.NANT> 

02260  PRINT*."  " 

02270  PRINT*. *T-INIT=  “,(TINIT(IA),IAal»NANT> 

02290  PRINT*,"  " 

02/90  PRINT*, "DELTA-T*  «,(TINCR(IA).IAal,NANT> 

02^00  PRINT*,"  " 

02110  PRINT*. "TIME*  ".ITIME,",  SEED*  ".SEED 

02120C 

02330CaaaBaaaBBaaaa3aaBBaBaaaaaBaaaaBaBaBBBBBaBBBBBBaaBBBBBBBaaBBBBBaBBaBBaaBBB 
02M40C  SET  INITIAL  PARAMETERS 

0?:i50CaaBaa==Baaaa==aaaaaaasaaaasaaaaaaaaaasaaasaaaaaaaaaaaaaasaaaaaaaa==aaaaas 

02360C 

02-170  15  IF(NPTS.EQ.NPTSO)  GO  TO  2  $  NPTSO-NPTS  »  NMAXaO 

02380  FMAXMAG-1 .E-8 

02390  2  IAaO 

024<>0  M=TMOPI*FREQ 

02410  IFCSEED.NE.O.)  CALL  RANSET(SEED) 

02420C 

02430Caaaa==aaaa==aaaa=as==aaasassaaasaaBaasssaBaaasaaaBBasBBaaaaBBaaaaaaassaas 
02440C  INITIALIZE  ANTENNA  PARAMETERS. 

02450C  PRINT  ANTENNA  PARAMETERS. 

02460CaaaaaaaaaaasasaaaaaaaaaaaaaaaaaaBaaaaaaaaaaBBaaaasaasBBaaaBaasaasaaBaaaaa 

02470C 

02480  3  IA=IA+1  ♦  ISB0 

02490  ANT2aANT<IA)  »  SDN=NOISE( IA)  »  TI=TINIT(IA)  4  DT=TINCR(IA) 

02S00C 

02510  IF( (KPRINT.AND.4) .EQ.O)  GO  TO  5 

02S20  PRINT*,"  "  *  PRINT*,"  "  *  PRINT*,"  " 

021130  PRINT  *, "ANTENNA  NO.a",IA,",  LOCATION"" ,ANT2,",  NOISEa".SDN 

02S40  PRINT  *."  " 

02^50C 

02560CsaaaBaaasaasaaaaasaasaaaaBsaaaaBaBBaaaaaBSSBBB>aaaaaasaaSBsrsssaBissssaS3 

021  >  tOC  INITIALIZE  SOURCE  PARAMETERS. 

02l>90CaaaaaaaaaaaaaaaaaaaaaBaBaaaaaaaaaaaaBaaBaaBBaBaBBBaBaaaaaaaaBaBassasz3aaa 

02590C 

02600  5  ISaIS+l 

02610  AMPaAMPLTDE( IS)  %  DFREQ>DOPFREQ(IS) 

02620  DELTAaPHINIT ( IS)*RADIAN 

026JO  NDaTWOPI*DFREQ 

02640C 
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02650C 
02B60C 
07B70C 
02680C 
02K90C 
02/0 0C* 
02/10C 
02  720 
02730 
02/40 
02750C 
02760 
02 //0 
02780 


:iii8i8Siiiitisssii8SBS«(issi&3Ssss8Siszszs::8:ss:ss:xz::: 

COMPUTE  ARRIVAL  PHASE  DIFFERENCE  DUE  TO  ANTENNA  LOCATION. 
OUTPUT  OF  DOT *Q*DGT  PRODUCT  OF  UNIT  PROPAGATION  VECTOR  K 
AM)  ANTENNA-POSITION  VECTOR  A. 

PRINT  SOURCE  PARAMETERS. 

. . . 


S3( 1  )*-RX( IS)  %  S3(2)*-RY( IS) 
CALL  D0T(ANT3,S3,Q) 
PHI*(W+MD)*Q/C 


*  S3(3)*-RZ( IS) 


02790 

OZfioOC 


IF < (KPRINT.AND.8) .EQ.O)  GO  TO  7 

IF(IS.E8.1)  PRINT* »"  SOURCE  ANT. PHASE  TOT. PHASE (DEG)" 
PRINT  6. IS. (PHI/RADIAN) . ( (PHI+DELTA)/RADIAN) 

6  FORMAT( I5.F11 .2.F10.2) 


02810C************************aaaaa****aaaaaa*****aaa**aaaaa 
02820C  COMPUTE  TIME  SEQUENCE  FOR  THIS  SOURCE. 
0?H30C**************aaaa***a*a*aaa**a**a***a*a*aaaa**aaaaaaa 
02840C 

7  T«TI  %  1*1 

8  IF(IS.EQ.l)  FR(I)*FI(I)*0. 

Q=PHI+WD*T+DELTA 

Q*HD*T-PHI-DELTA 
FR(I)*FR(I)+AMP*CQS(8)  * 

IF(I.EQ.NPTS)  GO  TO  9  * 

9  IF( IS.LT .KSOURCE)  GO  TO  3 
IF(SDN.EQ.O. )  GO  TO  20 


02830 

02860 

02870CCC 

02880 

02H90 

02900 

02810 

02920 


FI(I)«FI(I)+AMP*SIN(Q) 
I»I*1  »  T*T+DT  *  GO 


TO  8 


02930C 

02940C** ******** ****************************** ******* 
02830C  ADD  NOISE  TO  THE  TIME  SEQUENCE. 


E8SSSSS3S3SS:S8S8S58SCSS88 


Si 

02860C 

$ 

02970C 

02980C 

£ 

02990 

M 

030(H) 

03010 

% '  • 
i  » 

»  *  • 

03020 

V  % 

03030 

►  v* 

1  ■ 

03U40C 

03030 

m 

03060 

03070 

* 

03000* 

» • - 

03«>90 

*>  *  • 

*•  * 

03100 

031 IOC 

:ss8s8z38ss8sss83:s:ss8sz383s88s38sstsss83ss3ssssssss:ss:8zss::s::: 


DO  10  I*1.NPTS 
CALL  GAUSSKO.  .SDN.Q) 
FR(I)*FR(I)+Q 
CALL  GAUSSKO.  .SDN.Q) 
10  FI(I)*FI(I)+Q 


20  IF(KPRINT. AND. 16)21.22 

21  PRINT  32.TI.DT 

32  FORMAT!/, "  TIME  SEQUENCE.*  T-INIT*",F6.5, ". 
F6.5,/,6(4X»"I*»3X, "REAL" ,4X»"INAG" ,2X) ) 
PRINT  13,(1 »FR( I ) »FI(I) ,1*1 »NPTS) 

13  F0RMAT(25( I3.2F8.2, ,5( I6.ZF8.2)/) ) 


DELTA-T** 


03120C** ************************************************** ********. 
03130C  COMPUTE  THE  FOURIER  SPECTRUM. 

03t40C  PRINT  FREQ.  SPECTRUM  (REAL, IMAG) . 

0^1  t50CS8SSCSX8SSSS8ftsssac=ZSSSBasssssa:sx  =  **sssssssssssssssssess3Ssssrss 


rssssscss 
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03160C 

03170  22  CALL  FORER(NPTS.FR.FI.SINS.NSWTCH.NNAX) 

03180C 

03190  IF( (KPRINT. AND. 32) .EG. 0)  GO  TO  31 

O.'s/OO  PRINT  30 

03210  30  FORMAT ( / . "  FREQUENCY  SEQUENCE  (REAL.IMAG)",/. 

03/20+  6(4X,"I",3X,"REAL",4X,"IMAG",2X>) 

03230  PRINT  13>(I. FR(I),FI<I>,I=I,NMAX> 

03/40C 

032S0C  DO  SPECTRAL  AVERAGING. 

03Z70C  IF  SKIPPING  SPECTRAL  AVE'G.  ADJACENT  SPECTRAL  LINES  ARE  NOT 
03280C  SUBTRACTED.  MULTIPLYING  SPECTRAL  LINES  BY  2  CHANGES  NOTHING 
03290C  SINCE  SPECTRAL  LINES  ARE  SCALED  LATER  TO  SIX  BITS. 

03300C 

033 IOC  PRINT  AVERAGED  SPECTRAL  LINES  (REAL.IMAG). 

03330C 

03340  31  01=1. 

03350  IF( (KPRINT. AND. 2048). NE.O)  01=0. 

03360  IF(IN.NE.5.AND.IN.NE.8)  GO  TO  25 

03370C 

03380  HFR( 1 )=2*FR( 1 )-01*FR(2) 

03390  HFI<1)=2*FI(1)-01*FI<2) 

03400C 

03410  NS2=NSL/2  *  NS3=NS2+1  «  NS4=NSL-2 

03420  DO  40  1=2. NS2 

03430  HFR(I) =-01*FR{ 1-1 )+2*FR( I )-Ql*FR( 1+1 > 

03440  40  HFI ( I ) =-01*FI ( 1-1 )+2*FI ( I )-01*FI ( 1+1 ) 

03450C 

03460  DO  50  I=NS3.NS4 

034  70  HFR( I ) =-01*FR( I >+2*FR( I+i )-01*FR( 1+2) 

03480  50  HFI(I)=-01*FI(I)+2*FI{I+l)-01*FI<I+2> 

03490C 

03500  HFR(NSL-1)=-01*FR(1)+2*FR(NSL)-Q1*FR(NSL-1> 

03510  HFHNSL-l  )=-01*FI(  1  )+2*FI  (NSL)-01*FI  (NSL-1 ) 

03520  HFR(NSL)=2*FR(l)-0l*FR(NSL> 

03530  HFI(NSL)*2*FI(1)-01»FI(NSL) 

03540  GO  TO  60 

03550C 

03560  25  NS1=NSL-1 

03570  DO  70  1=1. NS1 

03580  J=2*I 

03590  HFR(I)=-01*FR( J-l )+2*FR( J)-01*FR( J+l ) 

03600  70  HFI ( I ) *-Ol»FI (J-l )+2*FI ( J )— 01*FI ( J+l ) 

03610  HFR(NSL)=-01*FR( 1 )+2*FR(2*NSL)-01*FR(2*NSL-l ) 

03620  HFI(NSL)=-01*FI(l)+2*FI(2*NSL)-Qi*FI(2*NSL-l) 

03630C 

03640  60  IF( (KPRINT. AND. 64)  .EQ.O)  GO  TO  24 

03650  IF( (KPRINT .AND. 2048) .h£.0)  PRINT*."  " 

03660  IF ((KPRINT. AND. 2048). NE.O)  PRINT*."  NO  SPECTRAL  AVE'GI  ", 
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03870+  "WHAT  FOLLOWS  IS  FREQ.  SEQ." 

03680  PRINT  61 

03690  61  FORMAT!/# "  AVERAGED  SPECTRAL  LINES  (REAL# I MAG) 

03700+  “#/»6(4X»"I"#3X»"REAL"»4X#"IHAG"#2X)) 

03710  PRINT  13# (I,HFR(I)#HFI(I)#IB1#NSL) 

03720C 

. . . . . . . . 

03740C  CONVERT  TO  AMPLITUDE  AND  PHASE. 

03750C  PRINT  AVERAGED  SPECTRAL  LINES  (AM PL  &  PHASE). 

03760CBBBBBBBBBBBBBBBBBaBBBBBBBBBBBaaBBaBBBBaBBBBaBBBaBaBBBBaBBBBBaBBBBBBBaBaBB 

03770C 

03780  24  DO  26  Ial#NSL 

03790  TEMPb(HFR(I)*HFR(I>+HFI(I)*HFI<I)> 

03800  IF(TEMP.£Q.O.O)GO  TO  27 

03810  HAMPLTDt I ) *SGRT ( TEMP ) 

03820  HPHASEd )aATAN2(HFI(I )  »WRd) ) 

03830  GO  TO  26 

03840  27  HAMPLTD{I)*0.0 

03850  HPHASEU)  >0.0 

03860  26  CONTINUE 

03870C 

03880  DO  55  Ial,NSL 

03890  55  IF(HAMPLTDd).GT.FMAXMAG)  FMAXMAGaHAMPLTD( I ) 

03900C 

03910  1F((KPRINT.AND.128).EQ.0)  GO  TO  62 

03920  IF((KPRINT. AND. 2048). NE.O)  PRINT*#"  " 

03930  IF( (KPRINT. AND. 2048) .NE.O)  PRINT*#"  NO  SPECTRAL  AVE'GJ  "# 

03940+  "HHAT  FOLLOWS  IS  FREQ.  SEQ." 

03950  PRINT  23 

03960  23  FORMAT ( / » "  AMPLITUDE  &  PHASE(DEG)  OF  AVERAGED  SPECTRAL  LINES  "#/# 

03970+  6(4X»"I*#3X,"AMPL"#3X#"PHASE"#2X) ) 

03980  PRINT  13,(1,  HAMPLTDd),  (HPHASEd) /RADIAN)  #Ial#NMAX) 

03990C 

04000CaaaBaaaaaaaaaaBaaaaaBaaBBa|:aaaBaaBaaaaBBaaaasaaaaaBBBaBBSaBBBBBBazaBSBBBa 
04010C  WRITE  THE  SPECTRAL  AMPLITUDES  &  PHASES  ON  TAPE3. 

04020CaaaaBaaaaaaBaaaBBaaaaBBaBaBBaBasBBaBBBBBaaBaBaaaaBBaaaaBaBaaaaBBBaBBBBBBa 

04030C 

04040  62  WRITE(3)  NSL#(HAMPLTD(I)#HPHASEd)#Ial#NSL) 

04050  IF(IA.LT.NANT)  GO  TO  3 

04060C 

04070  PRINT*#"  " 

04080  PRINT*# "MAX  HAMPLTD* " # FHAXMAG 

04090  PRINT*,"  " 

04100C 

04110  IF( (KPRINT .AND. 2048) .NE.O) PRINT* # "  *****  NO  SPECTRAL  AVE'G  *♦***“ 

04120C 

O4130CsaaasaaaaSBaaaaaaBSaaaaBaaBBaSBaaaaaaBBBaaBaaBaaaSBaaBaB:aBaaaaaaBBaaBaaa 
04140C  THIS  CASE  IS  COMPLETED. 

04130C 

04160C  SCALE  DATA  AND  PACK  PREFACE  AND  DATA  INTO  2  RECORDS  IN  SAME  FORMAT 
04170C  AS  DIGISONDE  OUTPUT. 


1M9 
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04180C3333  SII3Cs:iS3SSaC83XCI3rSSSSS:rS2SSE3tBSS88SMS8:nB3»SBIXIS::BB888ttllS 

04190C 

04200  CALL  C720(FREQrIN» ITTr ITIME»NSLrNANT »NW0RD>I0UT) 

04210C 

04220  CALL  C2160(NW0RD, IOUT) 

04230C 

04240  00  TO  1 

04250  28  STOP 

04260  END 

04270C 

04280C 

04290C 

04300C 

0431 OC 

04320C 

04330C 

(WS+OC3333333333333333333333333333333333333333333333333333333333333333333333333 

04350C  SUBROUTINE  FORER 

04360C3333333a3aaa333333333a333a33aaa3aa 333333333333333333333333333333333333333 
04370C 

04380  SUBROUTINE  FORER  (NPTS. FR, FI .SINS.NSWTCH.NHAX) 

04380C 

04 400Caa  33  3=33= *a  (»:>::  es  a  a  BSHiauiiuiu  isr  . .  :stt»s 

04 4 IOC  COMPUTE  FOURIER  COEFFICIENTS  OF  ARRAY  OF  DATA 
04420C 

04430C  TAKEN  FROM  A  PROGRAM  WRITTEN  BY  MICHAEL  FORMAN 
04440C 

04450C  NPTS  IS  THE  NUMBER  OF  INPUT  POINTS 
04460C 

04470C  FR  IS  INPUTED  AS  THE  REAL  PART  OF  THE  INPUT  DATA  ARRAY 
04480C  (FOR  SIMPLE  OPERATION  INPUT  DATA  ARRAY) 

04480C  FR  IS  OUTPUTED  AS  THE  ARr'AY  OF  COSINE  COEFFICIENTS 
04500C 

045 IOC  FI  IS  INPUTED  AS  THE  IMAGINARY  PART  OF  THE  INPUT  DATA  ARRAY 
04520C  (FOR  SIMPLE  OPERATION  ARRAY  OF  ZEROS) 

04330C  FI  IS  OUPUTED  AS  THE  ARRAY  OF  SINE  COEFFICIENTS 
04340C 

04550C  GIVEN  THE  ORIGINAL  TIME  SEQUENCE  (  FR(I),FI(I)  )  FOR  I«l, .. ..NPTS. 

04560C  THE  RESULTING  FREQUENCY  SEQUENCE  (  FR(J),FI(J)  )  FOR  J=1,...,NMAX 
04570C  is  defined: 

04580C  NMAX 


04580C  (  FR(J)rFKJ)  )  3  SUM  (  FRd)fFI(I)  )  (  COS(K),SIN(K)  ) 

04600C  1*1 

0461 OC  WHERE  K  3  ( J-l ) (TWOPI/NMAX) ( 1-1 ) . 

04620C 

04630C  SINS  IS  AN  ERASABLE  ARRAY  (MUST  BE  DIMENSIONED  AT  LEAST  M/4+1 
04840C  WHERE  M  IS  THE  DIMENSION  OF  FI) 

04830C 

04B60C  NSWTCHaO  FORWARD  TRANSFORM 
04670C  NSWTCH3!  BACKWARDS  TRANSFORM 
04680C 
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04680C  NhAX  (ON  INPUT)  SET  NHAXaO  ONLY  WHEN  NECESSARY  TO  CONFUTE 
04700C  A  NEW  NHAX  OR  SINS  ARRAY 

04710C  (ON  OUTPUT)  THE  NUMBER  OF  POINTS  IN  TIC  EXTENDED  FUNCTION 

04720C  (EXTENDED  WITH  ZEROS  TO  THE  NEXT  POWER  OF  2) 

04730CBBBBB BBBBBBBB  i2iiiX8aiisxs8KSS3ss&ss::ss8i8s:3sssess:sss8a3ssssz8:3sc::s 

04740C 

04790  COMMON  K PRINT, RADIAN 

04760  DIMENSION  FR(l)rFI(l)»SINS(l) 

04770  DATA  THOPI/S. 283185307179586/ 

04780C  PRINT  10» (I »FR(I) »FI(I) » I»1 »NPTS> 

04790  IF(NMAX.NE.O)  GO  TO  650 

04800C 

04810C  8SSS>C88l88a88S>8ia8S8l8l8C8t88SS3«SSa83l8S8SS88S:z::S888B88SCSCSS388SSeB 

04820C  COMPUTE  NEXT  HIGHER  POWER  OF  2  ABOVE  NPTS 

04830C*  3E8S8888I2XI88SZXCI88l8SXS38::333CE:8r8St8B88B:3X8S38888IS88CS3S23:833C: 

04840C 

04850  NBIT  «  ALOG(FLOAT(NPTS) )/. B931471B0S59945 

04860  NHAX  «  2#*NBIT 

04870  IF  ( NHAX. GE. NPTS)  GO  TO  200 

04880  NBIT  *  NBIT+1 

04890  NHAX  >  2#NHAX 

04900  200  FNHAX  «  NHAX 

04910  NP  ■  NPTS+1 

04920  KR  «  NMAX/4+1 

O4930C 

04940C—  8S88S888a8888l88XS8l8888Sa8X8X88833XXSX8B8338S8388S8XS88BBS8Z83S33SBS83 

04950C  COMPUTE  1/4  CYCLE  SINE  FUNCTION 

049SOCBBBaBBBBB3BBBBB3BB3aBBBBaBB3BBBBBaBBBBBBB3BBBBB33S3B3BBBBBBBBBBBB333B33B3 

04970C 

04980  DO  600  1*1 ,KR 

04990  XI  =  1-1 

05000  600  SINS(I)  3  SIN(TWOPI«XI/FNMAX) 

05010  650  IF(NMAX.LE.NPTS)  GO  TO  675 

05020C 

Q5030CB3BBBBBB3B333BB3BBBB 333 3333 B33BBBBB3BBBB 3333 33333 B333BBB3BBBBBBBBBBBBBBBB 
05040C  CLEAR  REMAINDER  OF  REAL  AND  IMAGINARY  PARTS 

05050CBB3BBBBB3BBBBB3BBBBBBBBBBB3SBBBBB*aBBBBBBBBBBBBBBBBBBBBB3BBBBBBB3BBBBBBB3 

05060C 

05070  DO  300  I-NP.NMAX 

05080  FR(I>  »  0. 

05090  300  FI(I)  B  0. 

05100  675  JMAX  >  NHAX 

05110  JHALF  3  NMAX/2 

05120  LXY  3  2*KR 

05130C 

05140CBBBBBBBBBaBBBBBBBBBBBBBBBBBBBaBBBBBBBBBBBBaBBBB3BBBBB3BB3BBBBBBBBBB3BBBBB 
05150C  COMPUTE  FOURIER  COEFFICIENTS 

05l80CBBBBBBBBBBBBBBBBB3BBBBBBBBBBBBBBBBBBBBBBBBBBBBaBBBBBBBBBBBBBBB3BBBBBBBBBB 

05170C 

05180  DO  1300  KB1, NBIT 

05190  JP  3  NBIT-K 
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05200  DO  1200  J=t .NMAX, JHAX 

05210  JT  *  J+JHALF-1 

05220  JJ  >  IBRSH(J-l.NBIT.JP) 

05230  KK  «  KR-JJ-1 

05240  IF  (KK)  900.800.700 

05250  700  HI  *  SINS(JJ+1) 

05260  HR  *  SINS(KK+1 ) 

05270  GO  TO  1000 

05280  800  HI  «  1.0 

05290  HR  «  0.0 

05300  00  TO  1000 

05310  900  JB  =  LXY-(JJ+1) 

05320  HI  *  SINS(JB) 

05330  KK  »  -KK 

05340  HR  >  -SINS(KK+1) 

05350  1000  CONTINUE 
05360  IF(NSHTCH.NE.O)  UI>-UI 

05370  DO  1100  LaJ» JT 

05380  LK  >  L+JHALF 

05390  AR  *  FR(L> 

05400  AI  «  FI(L) 

05410  BR  *  FR(LK)*MR-FI(LK)*HI 

05420  BI  =  FR(LK)*NI+FI(LK)*HR 

05430  FR(L)  -  AR+BR 

05440  FI(L)  »  AI+BI 

05450  FR(LK)  *  AR-BR 

05460  1100  FI(LK)  =  AI-BI 

05470  1200  CONTINUE 

05480  JHAX  »  JHAX/2 

05480  1300  JHALF  =  JHALF/2 

05500C 

05310C*BS»s,*’,*,,,S5!t,S!*s . . . ss!ssessiaises!sss«s*s«i*sss 

05520C  SNAP  COEFFICIENTS  INTO  CORRECT  ORDER 

05330CI*BS*®******,s*aesa***,**ss***ls*s****,**s,s**slss*sssl!***!,*ssss 

05340C 

05350  DO  1400  l3lrNHAX 

05360  JJ  3  IBRSH(I-l.NBIT.O) 

05370  IF  (JJ.LE.I-1)  GO  TO  1400 

05380  FX  *  FR(I) 

05390  FR(I)  *  FR( JJ+1 ) 

05600  FR( JJ+1)  =  FX 

05610  FX  »  FI(I) 

05620  FI(I)  »  FI (JJ+1) 

05830  FI (JJ+1)  •  FX 

05640  1400  CONTINUE 

05650C  PRINT  10.(I.FR(I).FI(I).l3lrNHAX) 

05880  10  F0RHAT(3(2X.*SUB*4X*I*7X*FR*13X*FI*6X)/3(I10.1P2E15.7> ) 

05670  IF(NSNTCH.EQ.O)  RETURN 

05690  THAX«1.0/FL0AT(NHAX) 

05690  DO  2  I-l.NHAX 

05/00  FR(I)«FR(I)*THAX 
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05710  FI<I)*FI(I)#TMAX 

05720  2  CONTINUE 

05730  RETlffiN 

05740  END 

05750C 

05760C 

05770C 

05780C 

05790C 

05800C 

05810C 

05820C===*==*====*=»=======*=====================i=============s==*===ia ======= 

05830C  FUNCTION  IBRSH 

05840C == r ==============**= ========================= = ========  ==================  = 

05850C 

05860  FUNCTION  IBRSH  (KrNP. JP) 

05870  NS*2**(NP-1> 

05880  NM«2**JP 

05880  JC«2+JP 

05900  K8T>K 

05910  KV*0 

05920  00  1  I’JC.NP 

05930  KIN-KST/NS 

05940  KV»KV+KIN*NM 

05950  KST  *KST-NS*K IN 

05960  NS-NS/2 

05970  NM»NM*2 

05980  1  CONTINUE 

05990  I8RSH*K V+KST #NM 

06000  RETURN 

06010  END 

06020C 

06030C 

06040C 

06050C 

06060C 

06070C 

06080C 

06090C*  C«XSI8SB188l8aitlSaSI2S88S8BkSC83S8aS8ltlBSSSI»8:3SS8t&ISaC8(CC>CIfXeS8 

06I00C  SUBROUTINE  0AUSS1 

061 IOC  THIS  SUBROUTINE  COMPUTES  A  NORMALLY  DISTRIBUTED 
061 20C  RANDOM  VARIABLE  V  WITH  GIVEN  MEAN  AND  STANDARD 
06130C  DEVIATION 

OelAOC^^O^OOX^^O^ . . . . 

06150C 

06160  SUBROUTINE  GAUSS1 (AM.S.V) 

061 7QC 

06180  1  P«RANF(DUM) 

06190  IF(P)  If  1.2 

06200  2  D«P 

06210  IF(P.GT.0.5>  D-l.O-D 

153 


TESTS* Y  (ULCAR) 


06220  T2aAL0G(1.0/(D*D)) 

06230  T«SGRT(T2) 

06240  VaT-(2.515517+0.802853*T+0.010328*T2)/(1.0+1.432788*T+0.189269#T2 

06230+  +0.001308*T#T2) 

06260  IF(P.LE.0.5)  3,4 

06270  3  Va-U 

06280  4  V=V*S+AM 

06290  RETURN 

06300  END 

063 10C 

06320C 

06330C 

06340C 

06330C 

06360C 

06370C 

06380C**sss*ss*stss!lssssss'sss*ss==ssssae8s*s«s*sei«ssssassasi*sr**saasss*ss*** 

06390C  SUBROUTINE  VECTORS 

06400C»aaaaa« 

faansacasaaaaaaasaaaaaaaasssaaaaaaaetaaaaaaaaisacaiasasaaaaaaeaa 

06410C 

06420  SUBROUTINE  VECTORS(A,B,C) 

06430  DIHENSION  A<3) ,B(3) ,C(3) 

064 40C 

06450  ENTRY  CROSS 

06460  C( i)aA(2)*B(3)-A(3)*B(2) 

06470  C(2) aA(3)*B( 1 )-A( 1 )*B(3) 

06480  C(3)aA(l)*B(2)-A(2)*B(l)  »  RETURN 

06490C 

06500  ENTRY  DOT 

06510  C< 1 >=A(1 )*B( 1 )+A(2)*B(2)+A(3)*B(3)  »  RETURN 

06520C 

06530  ENTRY  LENQTHV 

06540  C( 1 )»S9RT(A( 1 )*»2+A(2 )*#2+A(3)**2)  $  RETURN 

06550  END 

06560C 

06570C 

06S80C 

06S90C 

06600C 

06610C 

06620C 


06630C*******B*****s*s**3*®**aBta8aaa8aaaaa8a8aaaaaa8aaBaa3a8Baaaaaaaaacaa38aa8 
06P40C  SUBROUTINE  C720 

06650Csass,sll,:aasss**S3seESSsassEiBssasa3SEXsssxz*a>ss3aasBrssa3SSSS8SSs:isssESS 

06660C 

06670  SUBROUTINE  C720<FREQ.IN,ITT,ITIME,NSL,NANT,NM0RD,I0UT> 

06680C 

06890Caasaaa 

BaBBsuuafBnBBaBBBiaiiaiiiiiaacaaaiiiiaiaaaatiaaiaaiiaiatisHasia 
06700C  TO  SCALE  AND  PACK  THE  OUTPUT  (AMPLITUDE,  PHASE)  FROM  THE  TEST 
06 7 IOC  FUNCTION  SUCH  THAT  EACH  DATUM  HILL  APPEAR  AS  STORED  IN  THE 
06720C  6-BIT  WORD  HITH  AMPLITUDE  RANGE  (0-63)  AND  PHASE  RANGE 
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06730C  (0-511).  THE  MAX  AMPLITUDE  HAS  BEEN  SORTED  OUT  IN  MAIN  PROGRAM. 

06740C 

06730C  NSL-NO.  OF  SPECTRAL  LINES 

06760C  -NO.  OF  DOPPLER  FREQUENCIES 

06770C  NANT-NO.OF  ANTENNAS 
06780C  NHALF=NO.  OF  NEGATIVE  DOPPLERS 
06790C  -NO.  OF  POSITIVE  DOPPLERS 
06800C  NTOT =NANT*NHALF 

068 IOC  -TOTAL  NO.  OF  NEG-DOPP  VALUES  OVER  ALL  ANTENNAS 

06820C  -TOTAL  NO.  OF  POS-DOPP  VALUES  OVER  ALL  ANTENNAS 

06830C  NCHAR-NO.  OF  6-BIT  CHARACTERS  INTO  WHICH  THE  NEG  (OR  POS)  DATA  IS 
06840C  CODED!  2  AMPLITUDES  AND  2  PHASES  ARE  CODED  INTO  5  CHARACTERS 

06050C  NUORD-NO.OF  COMPUTER  WORDS  CONTAINING  THE  NEG  (OR  POS)  PACKED  DATA: 
06860C  10  6-BIT  CHARACTERS  ARE  PACKED  INTO  EACH  60-BIT  COMPUTER  WORD 

06870C  I OUT -TOTAL  NO.  OF  PACKED  COMPUTER  WORDS:  8  PREFACE.  NWORD-NUMBER  OF 
06O80C  NEG-DOPP,  NWORD-NUMBER  OF  POS-DOPP 

06890C 

06S00C  FM.PHI ,FMN> PHIN  MUST  BE  DIMENSIONED  AT  LEAST  TO  NTOTJ  TM.TPHI ,  TO  NSL, 
069 IOC  IBUF,  TO  NCHARJ  IBUF2,  TO  NWORO:  IBUF1,  TO  IOUT. 

06920C— — —  issss:88sssssssBB:sBBssa:::33sssrsEzssc88ssssx:::s3ssssi3:8zss8: 

06930  DIMENSION  FM(Z56) ,PHI(256) ,FMN(256) ,PHIN(Z56) ,TM(1ZB) , 

06940+  TPHK1Z8) 

06950  DIMENSION  IBUF(640),IBUF2(64),IBUF1(136),IPREF(B0) 

06960  COMMON  /BLK/FMAXMAG,TNOPI 

06970  COMMON  K PRINT, RADIAN 

06960C 

06990  NKALF-NSL/2  *  NTOT -NANT+NHALF  »  NCHAR-(NT0T/2)*5 

07000  NWORD-NCHAR/ 10  *  IOUT-Z*NHORD+8 

07010C 

07020C----—--— PREFACE  »-=*»**--«-==--*-**--*»-*“*****=*= 
07030C 

07040C  STATION  I DENT, YR, DAY, HR, MIN, SEC I  LAST  4  DIGITS  NOT  USED 
07U50C  (IDENT-0  IDENTIFIES  THIS  DATA  AS  TEST  DATA  IN  SKYMAP) 

07060  DATA  IPREF  /O,  7,8,  0,8,2,  0,0,  0,0,  0,0,  0,0, 0,0, 

07070C  FOR  MICROCOMPUTER  ONLY 
07O90+  0,0, 0,0, 

07090C  FIRST  DIGIT- IREP!  2ND, IDS!  3RD  &  4TH,ITT 
07100+  4, 3, 0,0, 

071 IOC  IQ, in;  NEXT  6  DIGITS  NOT  USED 
07120+  1,0, 0,0, 0,0, 0,0, 

07130C  SOUNDING  FREQUENCIES  1  TO  6,  IN  10-KHZ  UNITS 

07140+  0,0, 0,0,  0,0, 0,0,  0,0, 0,0,  0,0, 0,0,  0,0, 0,0,  0,0, 0,0, 

07150C  FIRST  3  DIGITS:  CORRESPONDING  RANGES  (1.5-KM  UNITS)!  4TH  DIGIT:  IGAIN 
07160+  2, 7, 5, 4,  0,0, 0,0,  0,0, 0,0,  0,0, 0,0,  0,0, 0,0,  0,0, 0,0/ 

071 70C 

07180C— -x— * . 

071SOC  DETERMINE  IN,  ITT  AND  HR, MIN, SEC  FROM  NAMELIST  VALUES 

07200C--**-*- -■****--*- -=*“*“- 

07/10C 

07220  IPREF(26)»IN 

07/30  IPREF( 23) -ITT/10 
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07240  IPREF<24)=ITT-IPREF(23)*10 

07250  IPREF(7)aITIME/100000 

07280  IPR£F(8>aM0D( ITI7E, 100000) /10000 

07270  IPR£F(9)aM0D(  ITIME, 10000 )/1000 

07280  IPREF(10)3M0D(ITIME»1000)/100 

07290  IPREFI 11 )aMOD< ITIME, 100)/10 

07300  IPREF(12)3MQD( ITIME, 10) 

07310C 

07320Ca33a33333333333=333333=33333333333333333333333a3333333333=3=33===33333333 

07330C  SET  SOUNDING  FREQ  EQUAL  TO  FREQ  FROM  NAMELIST  VALUES 

07340C 

07350C  TEST  FUNCTION  USES  ONLY  FIRST  FREQ*  WHEREAS  DIGISONDE  DATA 
07360C  CAN  INCLUDE  DRIFT  DATA  FOR  UP  TO  6  FREQUENCIES 

OTSTOC3333333333333333333333333333333333333333333333333333333333333333333333333 

07380C 

07330  IFREQaFREQ-12.5E+3 

07400  IFREQaIFREQ/ 10000 

07410  IPREF(33)3H0D<IFR£Q. 10000)71000 

07420  IPREF(34)3M0D(IFR£G» 1000)7100 

07130  I PR£F(35)=N0D(IFR£G, 100)710 

07440  IPREF(38)aM0D( IFREQ, 10) 

07450C 

07460  DO  11  1=1,80 

07170  11  IPREF(I)aIPREF(I),0R.l6 

07480C 

07490C====== =======  FREQUENCY  SEQUENCE  ======================= 

07500C 

07510C  READ  FREQUENCY  SEQUENCE  FROM  TAPES 
075/0C 

07530C  PUT  FIRST  HALF  OF  THE  DOPPLERS  (NEG.  DOPPLERS)  FROM  ALL  ANTENNAS 
07540C  INTO  FM.PHI)  2ND  HALF  (POS.  DOPPLERS)  IN  REVERSE  ORDER  INTO  FMN.PHIN. 
07550C  PRINT  NEGATIVE  AND  POSITIVE  DOPPLERS,  ALL  ANTENNAS 

07560C333 3333333333333333333 33 333 333 33333333 3 3333333333333333333333333333333333 
07570C 

07580  DO  66  I31,NANT 

07590  BACKSPACE  3 

O/bOO  66  CONTINUE 
07610C 

07620  IK)  15  IAal,NANT 

07H30  READ  (3)  NPT64,(TM{I),TPHI(I),I3l,NPT64) 

07B40  IF(E0F(3> ) 100, 10 

07b50  10  II«IA-1 

07b60C 

07b 70  DO  15  K31,NHALF 

07680  KKaII*NHALF+K 

07690  FM<KK)«TM(K) 

07/00  PHI(KK)aTPHI(K) 

07710  FMN<KK>3TM(NSL+1-K) 

07/20  PHINIKK ) aTPHI (NSL+l-K ) 

07/30  15  CONTINUE 

07740C 
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07750  IF( (KPRIHT.AND.256) .EQ.O)  GO  TO  26 

07760  PRINT  27 

07770  27  FORMAT ( / » "  NEGATIVE  DOPPLERS,  ALL  ANTENNAS  (PHASE  IN  DEGREES)",/, 

07/80+  6(5X,"I",3X,"ANPL",2X, "PHASE")) 

07790  PRINT  28,(I,FM(I),(PHI(I)/RADIAN),IZ1,NT0T) 

07800  28  F0RMAT(6(I6,2F7.1>) 

07810  PRINT  29 

07820  29  FORMAT ( / , "  POSITIVE  DOPPLERS,  ALL  ANTENNAS  (PHASE  IN  DEGREES)",/, 

07830+  6(5X,"I",3X,"AMPL",2X, "PHASE")) 

07840  PRINT  28, ( I,FMN< I ) , (PHIN(I)/RADIAN) , IS1 ,NTOT> 

0785QC 

07860CaazzaszaazzazazaaaBaaazaa3aazzaazzazaazzazaBaaazzaazazzazzaaazaazaazzazzz 
07870C  PACK  PREFACE  AND  STORE  RESULT  IN  IBUF1 

07880Caaazzaazzaazaaaazzaazaaaaazaaaaaaaaaazaaaaaaazzazzaaaaaazzaazaaaazzzazaaz 

07890C 

07900  26  CALL  C0MPACT(IPR£F,80,IBUF1,B) 

07910C 

07920Cszazzzaaaaazazaaaazzaaazzzaazzaazsaazzazzaaaaaazaazaazaazzazaaaaaaazzazzz 
07930C  SCALE  THE  AMPLITUDES  AND  PHASES  AND  STORE  IN  IBUF1  WITH  PREFACE! 

07940C  ICOUNT=i: 

07950C  CALL  SCAST  TO  SCALE  NEG-DOPPLER  AM PL.  &  PHASES!  AND  TO  STORE 
07960C  SETS  OF  2  6-BIT  AMPLITUDES  AM)  2  9-BIT  PHASES  INTO  ARRAY 

07970C  IBUF  IN  SETS  OF  5  6-BIT  CHARACTERS. 

07980C  CALL  COMPACT  TO  PACK  GROUPS  OF  10  6-BIT  CHARACTERS  FROM  IBUF  INTO 
07990C  60-BIT  COMPUTER  WORDS  IN  I8UFZ. 

08000C  APPEND  NEG.  DOPPLERS  TO  PREFACE  IN  IBUF1. 

0801 OC  IC0UNTZ2.* 

08020C  DO  SAME  FOR  POS.  DOPPLERS,  APPENDING  THEM  TO  PREFACE  AND  NEG. 

DB030C  DOPPLERS  IN  IBUF1. 

08040czzzzz===a=zza=zaazzzaazazs3a=aaaszssaaasaszzaz3zzzszazzzrzzazzazzazz*==sz 

ofiosnr. 

08060  DO  45  IC0UNT=1,2 

08070C 

08080  CALL  SCAST(FM,PHI,NTOT,IBUF,NCHAR,ICOUNT) 

08090C 

08100  CALL  COMPACT! IBUF, NCHAR, IBUF2,NH0RD) 

081 IOC 

08120  K»8 

08130  IF(IC0UNT.EQ.2)  K=8+NM0RD 

08140  DO  35  1=1 rNWORD 

08130  35  IBUFl(K+I)aIBUF2(I) 

08180  IF( I COUNT. EQ. 2)  GO  TO  45 

08170  DO  40  Jal,NTOT 

08180  FM( J)aFMN( J) 

08190  PHI( J)*PHIN( J) 

08700  40  CONTINUE 

08210  45  CONTINUE 

08220C 

0Q230Caaaazaaa33aaaaaazaaaaaaaaaaaaBaaZ3azaasaaa3aaaaa33aaaaazaaa33aaz3aazaszaz 
08740C  OUTPUT  DATA  WITH  BUFFEROUT  TO  TAPE8 

06?30CaaaaaaaaaaazzaaaaaaaaaaaazaaaaazzaBaaaaaazazaaaaaazazaaazaaaaaaaaaaaaaaaa 
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08260C 

08270  70  BUFFER0UT(8»1)!IBUF1(1)»IBUF1(I0UT)) 

08280  IF(UNIT(8) )95»fl0»70 

OB/MO  80  STOP  2 

08300  95  CONTINUE 

08310  60  TO  100 

08320  4  PRINT  3r(IBUFl(I),I=l,I0UT) 

08330  3  FORMAT  (6(1X.020)) 

08340  100  RETURN  $  END 

083S0C 

08360C 

08370C 

08380C 

08390C 

08400C 

084 IOC 

08430C  SUBROUTINE  COMPACT 

084 40C  PACK  NN  6-BIT  CHARACTERS  FROM  IBUFIN  INTO  N-NN/10  60-BIT  COMPUTER 
08450C  WORDS  IN  IBUFOUT 

08460C33  :SIS32SSSICSSCS88BS8X8SSBSCS$BSS3KS8S8S&SSSC8&SSSSS5CSSSSS3S8SZ58SBSSSS 

08470C 

08480  SUBROUTINE  COMPACT! IBUFIN»NN,IBUFOUT,N> 

08490  DIMENSION  IBUFIN(NN) rlBUFOUT(N) 

08500  DO  65  IM=1,N 

08510  IBUFOUT! IM) -IBUFOUT! IM1.AND.0 

08520  DO  65  IBY=1,10 

08330  IB*10»IM+IBY-10  %  IBB=60-IBY*6 

08340  IBUFOUT! IM) 3 (IBUFIN! IB). AND. 77B) .OR. 

08550+  (SHIFT! IBUFOUT! IM),6). AND.!. NOT. 77B>) 

08560  65  CONTINUE 

08570  RETURN  *  END 

08580C 

08S90C 

08600C 

0861 OC 

08620C 

08630C 

08640C 

08650C888S88888888S83S838S338S83S833838333SS8333BB338S3333388SS8888333333333333 
08G80C  SUBROUTINE  SCAST 


066VOC838 8888383 88888833 8 8 88888888833 8=333=83=83=8383 83 3 33883833 33 3833 388 8 333 3 3 
08880C 

08690  SUBROUTINE  SCAST(FM.PHI ,NTOT, IBUF.NCHAR, I COUNT) 

087O0C 


OS'/IOC88883888 
08720C  INPUT 
08/J0C 
08740C 

08750C  output: 
087B0C33333338 


fXSIISIBt8BBBCS&3238BSSSS8BISSSIS8S3BSSS5SSS38CmSSSSSSSXSSS8 


FM:  AMPLITUDES 
PHi:  PHASES 

ntot:  number  of  points  to  be  scaled 
i but:  scaled  fm.phi  stored  in  array  ibuf 
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08770C 

08780  DIMENSION  FM(NTOT) ,PHI(NT0T) , IBUF(NCHAR) 

06790  COMMON  /BLK/FHAXMAG  r THOPI 

08800  COMMON  K PRINT, RADIAN 

08810C 

0eB20C*Clll,«» . . . . 

08830C  SCALE  THE  AMPLITUDES  TO  A  MAXIMUM  OF  63.999  DB,  SETTING  NEGATIVE 

08840C  AMPLITUDES  TO  ZERO 

08B50C  SHIFT  NEG.  PHASES(RAD)  BY  + THOPI  AND  SCALE  PHASES  TO  MAX  OF  511.998 
08860C  PRINT  NEG.  &  POS.  DOPPLERS,  ALL  ANT.,  AFTER  SCALING 


08880C 

08890  CONST -FMAXMAG/ 10** (S3. 999/20. ) 

06900  DO  45  Ial,NTOT 

08910  IF(FM( I ) .£8.0.0)00  TO  20 

08920  FH( I ) S20*ALOG10(FM( I ) /CONST ) 

08930  IF  (FM(I).LT.O)  FM(I)«0 

08940  20  IF(PHKI).EB.O.O)  GO  TO  45 

08950  IF(PHKI).GT.O.O)  GO  TO  30 

06960  PHI ( I ) a(THOPI*PHI < I ) )/TH0PI*511 .999 

08970  GO  TO  45 

08980  30  PHI ( I ) «PHI ( I > /TH0PI*51 1.989 

08990C 

09000  45  CONTINUE 

09010C 

09020  IF((KPRINT.AND.512).EQ.O)  GO  TO  31 

09030  IF(ICOUNT.EO.l)  PRINT  27 

09040  27  FORMAT </,“  NEGATIVE  DOPPLERS,  ALL  ANTENNAS,  AFTER  SCALING", 

09050*  "I  RADIANS  SCALED  TO  511”,/, 

09060+  6(4X»"I",3X,"AHPL" ,3X» " PHASE", 2X) ) 

09070  IF(IC0UNT.EQ.2)  PRINT  29 

09080  29  FORMAT!/,"  POSITIVE  DOPPLERS,  ALL  ANTENNAS,  AFTER  SCALING". 

09090*  "I  RADIANS  SCALED  TO  511",/, 

09100*  B(4X,"I",3X,"AMPL",3X, "PHASE", 2X>) 

09110  PRINT  28,(I,FM(I),PHI(I),I«1,NT0T) 

09120  28  FQRMAT(25<I5,2F8. 2,5(16, 2F8. 2)/)) 

09130C 

08140C»«»«*  SS88S8SS>r8irS8ia8SSaSSC8S88S88SS8SSSS883I3S88SBS88CI8SS8ISSC8SSSS 

09150C  STORE  THE  AMPLITUDES  AND  PHASES  IN  ARRAY  IBUF,  PUTTING  2  AMPL. 

09160C  PHASES  INTO  5  ELEMENTS  OF  ARRAY  IBUF I 
09170C  fm(d;  6  Mse  of  phkd;  3  LSB  of  phkd  AND  3  LSB  of  phi 
09180C  FM(I*1>;  6  MSB  OF  PHKI+l) 

09190CBBBBBBBBBBBBB33BBB3B3BBBBa33aBBBBBBBBBBBBBBBBBBBB3B3BBBBBBBBBBB 
09200C 

09210  31  NN»NT0T/2 

09220  DO  55  IB1,NN 

09230  I5bI*5  *  12-1*2 

09240  IBUF  < 15— 4>«FM< 12—1 ) 

09250  IBUF( 15-3) aPHI( 12-1 )/B 

09280  IBUF( I5-2>>( IFIXtPHI ( 12) ) . AND.7)+SHIFT< IFIX( PHI ( 12-1 > ) . 

09270*  AND. 7, 3) 


<i*n; 
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09280  I8UF<I5-1)=FM<I2> 

09280  IBUF(I5)=PHI(I2)/8 

09300  55  CONTINUE 

09310  RETURN  *  END 

09320C 

09330C 

09340C 

09350C 

09360C 

09370C 

09380C 

09390C*  ::2s:8:s::ss:s:::ss::::sss:8ims8RSszz3S883i::8KiC8s:ss=as:r:B:33o:ss:c 
094 OOC  SUBROUTINE  C2160 

094 IOC*  *  r2:B3aa=;3Scr==::::::::rzi:s:siz88XSCxx23C8rzr:23s:zcc:isxz===;==z=;=:: 

09420C 

09430  SUBROUTINE  C2160(NW0RD, IOUT) 

09440C 

09450CX= = ==3= ==r =*«======:l ====*==== === *=*===== ====“c====«:=== ====== ============= 

09460C  OUTPUT  DATA  WITH  2160  6-BIT  CHARACTERS  PER  RECORD 

09470C  IN  216  10-CHARACTER  WORDS 

0S480C  DIMENSION  OF  IBUF  MUST  BE  AT  LEAST  I  OUT 

09490C=aaa 33 3 ==========■=============*==■*=*===*==“========= =================== 

09C.00C 

09510  COMMON  K PRINT, RADIAN 

09520  DIMENSION  I0UTPT2(216> » JBUF<136> 

09330C 

09'J40Csa== a= a3 aaaa=aaa===a======a=Baaaa=aaa=a=a=aaaaaa ======== ========== ======= 

09550C  READ  DATA  FROM  TAPE8 

09560C3 ======== ============================ 3 ========= ================= ========= 

09570C 

09580  BACKSPACE  8 

09590  IRECRD=2 

09600  4  BUFFER  IN  (8,1MIBUF<1),IBUF<I0UT>> 

09610  IF(UNIT(8) >10,5,4 

090:  0  5  STOP  1 

09630C 

09640C============== ================================= ========================== 

09050C  INITIALIZE  I0UTPT2  TO  0 

09680C========*==*===== =====================■===■*■=== ========================= 

09670C 

09680  10  DO  15  1=1,216 

09680  15  IOUTPT2(I)=IOUTPT2(I).AND.O 

09700C 

09710C=== ====================================================== ================ 

09720C  OUTPUT  2  RECORDS  OF  216  WORDS : 

09730C  REC  i:  8  PREFACE,  16  DUMMIES,  NW0RD-NUM8ER  OF  NE6  DOPPLERS,  REST  0 
09740C  REC  21  8  PREFACE,  16  DUMMIES,  N WORD- NUMBER  OF  POS  DOPPLERS,  REST  0 
09750C  PRINT  DATA  AFTER  PACKED  INTO  2  RECORDS 

09 /60C*=*===== ============================= ==================================== 

097 /OC 

09780  DO  45  IR«1,IRECRD 
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09790C 

09800 

09810 

09820C 

09830 

09840 

09850 

09860 

09870 

09880 

09890 

09900 

09910 

09920 

09330 

09940 

09950 

09960 

099/0 

09980 

09990 


00  25  II»1,8 
25  I0UTPT2( 1 1 ) a IBUF (II) 

K*8  %  KK=24 
IF<IR.EQ.2)Ka8+NN0RD 
DO  35  J*1,NM0RD 
35  IQUTPT2(KK+J>“IBUF<K+J) 

39  8UFFER0UT(9,1>(IQUTPT2(1>,I0UTPT2(216>> 
IF<UNIT(9> >46,40,39 

40  STOP  2 

46  IF  ((KPRINT. AND, 1024 ).£Q.O)  GO  TO  45 
PRINT*,-  - 

IF( IR.EQ. 1 )PRINT#, "  PACKED  DATA:  1ST  RECORD 
IF<IR.EQ.2>PRINT#,-  PACKED  DATA:  2ND  RECORD 
IJ*24+NN0RD 

PRINT  1,<I0UTPT2(I),I>1,IJ) 

PRINT#,"  - 
45  CONTINUE 
1  F0RHAT(6( IX, 020) ) 

RETURN  *  END 


MG 
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00100  PROGRAM  SKYMAP(INPUT,TAPE1»0UTPUT,TAPE30 

001104  , TAPE50 » TAPE90 . TAPE91 , TAPE97 , TAPE98 , TAPE99 > 

00120C 

00130C*,s: . . . . . . 

00140C  GOOSE  BAY 

00190C  CALCULATES  SKYHAP  FROM  DRIFT  TAPE  DATA.  USING  THE  FREQUENCY-WAVENUMBER 
00180C  POWER  DENSITY  (FWPD). 

00170C 

001B0C 

00190C  TAPEi:  INPUT  FOR  ALL  FUNCTIONS  EXCEPT  MAPSEQ UENCE  <KPRINT=12B) 

00200C  TAPE30!  OUTPUT  FOR  KPRINTM 

002 IOC  TAPE50:  OUTPUT  OF  MAPDATA  (KPRINT=64> 

00220C  INPUT  FOR  MAPSEQUENCE  (KPRINT-128) 

00230C  TAPE90.91:  SCRATCH  FILES  FOR  TEMPORARY  STORAGE  OF  FHMAX(I) > 

00240C  FMd.J).PHI(I.J);  SEE  SUBROUTINE  SPLIT 

002S0C  TAPE97.98:  OUTPUT  OF  MAXIMUM  AMPLITUDE  (KPRINT=8192)  OF  NEGATIVE 

00260C  AND  POSITIVE  DOPPLERS  RESPECTIVELY 

00270C  MAX  AM PL  OF  BOTH  NEG  AND  POS  DOPPLERS  ARE  PRINTED  OUT 

00280C  TOGETHER  AT  THE  SAME  TIME  AS  THEY  ARE  WRITTEN  SEPARATELY 

00290C  ON  TAPE 

00300C  TAPES9:  SCRATCH  FILES  FOR  TEMPORARY  STORAGE  OF  ARRAYS  IB216  AND 
00310C  IB216T  WHILE  SORTING  OUT  NEG-  AND  POS-DOPPLER  DRIFT  DATA 

00320C 
00330C 

00340C  EXPLANATION  OF  K PRINT  USAGE  (SEE  FURTHER  COMMENTS  WITH  EXPLANATION 
00330C  OF  INPUT  PARAMETERS  BELOW K 

00360C  (COMPATIBLE  FUNCTIONS  CAN  BE  CALLED  SIMULTANEOUSLY  BY  SETTING  KPRINT 
00370C  EQUAL  TO  THE  SUM  OF  THE  INDIVIDUAL  K PRINTS) 

00380C 

00390C  KPRINT  PROGRAM  FUNCTION.* 

00400C 

00410C  DATA  CHECKS 

00420C 

00430C  1  PRINTS  OCTAL  DUMP  OF  RAW  DATA. 

00440C  8  PRINTS  UNPACKED  DUMP  (IN  DECIMAL).  WITH  MASKED  PREFACE. 

00430C  256  PRINTS  RECORD  NUMBER  AND  MASKED  PREFACE. 

00460C  1024  PRINTS  COMPARISON  OF  THE  PHASES  (0  TO  2*PI>  AT  THE  FOUR 

00470C  ANTENNAS  FOR  EACH  OF  THE  FIRST  32  DOPPLERS. 

004B0C  4096  PRINTS  THE  AVERAGE  OF  THE  LOG  AMPLITUDES  OF  THE  FOUR 
00490C  ANTENNAS  FOR  EACH  OF  THE  FIRST  32  DOPPLERS 

00:>OOC  16  PRINTS  COMPARISON  OF  THE  LOG  AMPLITUDES  AT  THE  FOUR 

005 IOC  ANTENNAS  FOR  EACH  OF  THE  FIRST  32  DOPPLERS. 

00520C  (ALL  DATA  CHECKS  ABOVE  ARE  COMPATIBLE) 

0C530C 

001.40C  9192  PRINTS  A  GRAPH  OF  THE  MAXIMUM  LOG  AMPLITUDE  AT  EACH 
00550C  FREQUENCY.  (NOT  COMPATIBLE  WITH  ANY  OTHER  FUNCTION) 

0036 OC  512  ANTENNA  CORRELATION  THROUGH  COMPARISON  OF  PHASE 

00570C  DIFFERENCES.  (NOT  COMPATIBLE  WITH  ANY  OTHER  FUNCTION) 

00580C 
00590C 

00600C  SORTING  DRIFT  DATA 
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006 IOC 
00620C 
00S30C 
00640C 
00650C 
00660C 
00670C 
00680C 
00690C 
00700C 
00710C 
00720C 
00730C 
00740C 
00750C 
00760C 
00770C 
00780C 
00790C 
00800C 
008 IOC 
00820C 
00830C 
00840C 
00830C 
00860C 
00870C 
00880C 
00890C 
00900C 
009 IOC 
00920C 
00930C 
00340C 
00950C 
00960C 
00970C 
00980C 
00990C 
01000C 
01010C 
01020C 
01030C 
01040C 
01050C 
01060C 
01070C 
01080C 
01090C 
OllOOC 
01110C 


4  USING  INPUT  TAPE  CONTAINING  BOTH  IONOGRAN  AND  DRIFT 
DATA,  SORTS  OUT  252  RECORDS  OF  DRIFT  AND  BUFFERS  THEM 
ONTO  TAPE30,  WHICH  CAN  BE  SAVED  ON  FILE.  ALSO  PRINTS 
RECORD  NUMBER  AND  PREFACE. 

(NOT  COMPATIBLE  WITH  ANY  OTHER  FUNCTION) 


SKYMAP  CALCULATIONS  AND  PRINTOUTS 

2  PRINTS  SINGLE  SKYMAPS,  ONE  RECORD  AT  A  TIME  (NEG  OR 

POS  DOPPLERS),  AS  THEY  ARE  CALCULATED.  IF  BOTH  NEG 
AND  POS  DOPPLERS  ARE  REQUESTED,  PRINTS  NEG-  AND 
POS-DOPPLER  MAPS  SEPARATELY,'  DOPPLER  NUMBERS  ARE 
REPRESENTED  BY  NUMERALS  ON  BOTH  MAPS. 

32  PRINTS  ANTENNA  PATTERNS,  FOR  THOSE  DOPPLERS  WHERE  THE 
ANT.  PATTERN  CONTAINS  NON-ZERO  VALUES. 

64  HAPDATA:  WRITES  FWPD'S,  THEIR  COORDINATES,  AND  THEIR  CORRES¬ 
PONDING  DOPPLER  NUMBERS  ON  TAPE  FOR  LATER  USE  IN  PRINTING 
SKYMAPS  (SEE  K PRINT  128  BELOW). 

16384  AVERAGE  THE  RAH  DRIFT  DATA  ( IN  COMPLEX  DOMAIN) 

OVER  SEVERAL  CASES  (ADD  TO  2,32  OR  64). 

(16384  NEEDS  TO  BE  MODIFIED  IF  TO  BE  RUN  IN  BATCH 
NODE.  PRESENTLY  STOPS  WHEN  TIME  CONTINUITY  OF  CASES 

15  BROKEN.) 

(ABOVE  4  CALCULATIONS  ARE  COMPATIBLE;  2  AND/OR  32  CAN  BE  RUN 
FOR  A  SINGLE  FREQUENCY  NUMBER  AND/OR  FOR  ONLY  NEG  OR  ONLY 
POS  DOPPLERS.  IF  64  IS  RUN,  WITH  OR  WITHOUT  2  AND/OR  32, 
ALL  FREQUENCY  NUMBERS  AND  BOTH  NEG  AND  POS  DOPPLERS 
ARE  CALCULATED). 

128  mapsequence: 

IF  REQUEST  "FWPD",  EACH  CASE  IS  PRINTED  ON  A  SEPARATE 
SKY  MAP. 

IF  REQUEST  ‘TIME",  COMPRESSES  A  TIME  SEQUENCE  OF  UP  TO 

16  CASES  ON  ONE  MAP  (SEE  COMMENTS  IN  SUBROUTINE 
MAPSEQ  FOR  DETERMINATION  OF  NUMBER  OF  CASES  IN  EACH 
SEQUENCE) ;  THE  FWPD'S  ARE  REPLACED  BY  NUMBERS  0  TO  15, 
INDICATING  THE  SEQUENCE  OF  CASES. 

IF  REQUEST  "BOTH"  (BOTH  NEG  AND  POS  DOPPLERS), 

BOTH  ARE  PRINTED  ON  THE  SAME  MAP,  WITH  NEG  DOPPLERS 
REPRESENTED  BY  NUMERALS,  POS  DOPPLERS  BY  LETTERS. 

IF  REQUEST  “NEG*  (OR  “POS"),  ONLY  NEG  (OR  POS) 

DOPPLERS  ARE  PRINTED;  POS  DOPPLERS  ARE  STILL 
REPRESENTED  BY  LETTERS. 

(INCOMPATIBLE  WITH  ANY  OTHER  FUNCTION) 


EXPLANATION  OF  INPUT  PARAMETERS  REQUIRED! 

(ALL  "QUOTED"  PARAMETERS  ARE  TO  BE  INPUTTED  WITHOUT  QUOTES) 
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01120C 

01 130C  a:  KPRINT  (SEE  ABOVE). 

01140C  IF  KPRINT*128.  IGNORE  INPUT  PARAMETERS  LISTED  BELOW!  BUT 
OUSOC  SEE  SUBROUTINE  MAPSEQ  FOR  OTHER  INPUT  PARAMETERS. 

01160C 

01 i7oc  b:  starting  record  no.: 

01180C  INPUT  "1*  TO  START  AT  BEGINNING  OF  TAPE1.  TO  START  AT 

01190C  A  SPECIFIC  DRIFT  RECORD,  FIRST  RUN  KPRINT=256  TO  FIND  TIC 

01200C  RECORD  M3.  OF  THE  DRIFT  RECORD  WANTED. 

01210C  WITH  KPRINT  64 ,  IF  ONE  RUN  IS  NOT  SUFFICIENT  TO  PROCESS 
01220C  ALL  DRIFT  DATA  ON  TAPE1.  CHECK  THE  END  OF  THE  OUTPUT  TO 

01230C  DETERMINE  THE  RECORD  NUMBER  AT  WHICH  TO  START  THE  NEXT  RUN. 

01240C  SKYMAP  ONLY  PROCESSES  DRIFT  DATA  FOR  WHICH  IT  FINDS  BOTH 

01250C  RECORDS  OF  A  CASE.  SO  STARTING  RECORD  NUMBER  MUST  BE  THAT 

01260C  OF  THE  FIRST  RECORD  OF  THE  FIRST  CASE  WANTED. 

812I88  c:  CPU  TIME  LIMIT  (IN  DECIMAL  SECONDS).’ 

01290C  USED  WITH  KPRINT  64.  THE  TIME  IS  CHECKED  AFTER  EACH  CASE 

01300C  (2  RECORDS.  ALL  FREQUENCIES).  IF  THERE  ARE  300  OR  LESS 

01310C  SECONDS  LEFT.  SKYMAP  CALCULATIONS  ARE  STOPPED  AND  THE 
01320C  RECORD  NO.  (DECIMAL)  AND  THE  FIRST  TWO  WORDS  (OCTAL)  ARE 
01330C  PRINTED  FOR  EACH  DRIFT  RECORD  ON  TAPE1  NOT  YET  PROCESSED. 
01340C  UNTIL  END  OF  TAPE  OR  ONLY  5  CPU  SECONDS  ARE  LEFT. 

01330C 

01360C  D:  FIRST  FREQ.  NO..  LAST  FREQ.  NO..’ 

01370C  E.G.  "1.3"  FOR  FREQUENCIES  1.2,3? 

01380C  E.G.  "2.2"  FOR  FREQ.  2? 

01390C  E.G.  "0"  (ZERO)  FOR  ALL  FREQ.  NOS..  EVEN  IF  THE  NUMBER  OF 
01400C  FREQUENCIES  CHANGES  DURING  THE  RUN. 

01410C 

01420C  E.’  "NEG",  "POS",  OR  "BOTH"  DOPPLERS. 

01430C  RECORDS  NOT  CHOSEN  ARE  IGNORED?  EXCEPT  THAT  FOR  KPRINT  2 
01440C  OR  32,  BOTH  RECORDS  OF  A  CASE  ARE  UNPACKED  FOR  DETERMINING 
014WJC  FWMAXX  <=THE  MAXIMUM  ESTIMATED  FWPD  FOR  A  CASE?  SEE  SUB- 
01  460C  ROUTINES  SPLIT  AND  FOU),  BUT  THE  SKYMAPS  OR  ANTENNA  PATTERNS 
01470C  ARE  CALCULATED  ONLY  FOR  THE  DESIRED  RECORDS. 

01480C 

01490C  F:  NO.  OF  CASES  TO  BE  AVERAGED  (ODD  NO.)?  WEIGHT  FACTORS: 

01500C  USED  WITH  KPRINT  16384.  E.G.  "3, 1,2,1":  EACH  CASE  IS 

01510C  DOUBLED  AND  AVERAGED  WITH  ITS  NEIGHBORS.  FIRST  CASE 

01520C  (DETERMINED  BY  "STARTING  RECORD  NO.")  IS  NOT  CALCULATED? 

01530C  CASE  2  WILL  BE  AVERAGED  WITH  CASES  1  AND  3?  CASE  3  AVE'D 

01540C  WITH  2  MID  4?  ETC. 

01530C 

01560C  G:  MINIMUM  SOURCE  (LOG)  AMPLITUDE  TO  BE  USED.’ 

01J570C  USED  WITH  KPRINT=512.  PURPOSE.'  TO  CHOOSE  ONLY  HIGH- 
01 50OC  AMPLITUDE  SIGNALS  (SOURCES,  AS  OPPOSED  TO  NOISE)  IN 
01590C  DOING  ANTENNA  CORRELATION. 

01600C 

01610C 

01620C  IF  RUNNING  SKYMAP  ON  A  TERMINAL,  THE  REQUIRED  INPUT  PARAMETERS 
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01630C 

WILL  BE  REQUESTED  BY 

THE  TERMINAL. 

01640C 

01650C 

IF  A  BATCH  RUN: 

01660C 

IF  K PRINT  INCLUDES 

BUT  DOES  NOT  INCLUDE 

INPUT 

01670C 

ONE  OR  MORE  OF  THESE 

ANY  OF  THESE 

01680C 

1,8,256 

16,1024,4096 

A.B.E 

01690C 

1024,4096.16 

A,B,D,E 

01700C 

8192 

A,B,D,£ 

01710C 

512 

A,B,D,E,G 

01720C 

4 

A  ,B 

01730C 

2,32 

64,16384 

A,B,D,E 

01740C 

64 

16384 

A,B,C 

01750C 

16384 

64 

A,B,D,E,F 

01760C 

16384  WITH  64 

A,B,C,F 

01770C  128  A 

01780C  (SEE  ALSO  SUBROUTINE  MAPSEG  FOR  K PRINT  128  INPUT  PARAMETERS) 
01790C 
01800C 

01810C  ARRAYS  X.Y  DIMENSIONED  FOR  ONLY  4  ANTENNAS 
01820C 

01B30C  VARIABLE  FORMATS  (REDEFINED  AS  NEEDED  IN  THE  PROGRAM)  I FORMAT, 
01840C  JFORMAT,  KFORMAT  USED  WITH  K PRINT  512?  LFORMAT,  WITH  K PRINT  8192 

01850C3333333333333333333333333333333333333333333333333333333333333333333 

01860C 

01870  DIMENSION  IF0RMAT(20) » JF0RMAT(28) »KF0RMAT(3) ,LF0RMAT(36) 

01880  DIMENSION  SUH(6) ,NUMBR(6»18) ,AVE(32) 

01890  DIMENSION  FACT(ll),X(64r4,2),IBTEHP(12>,Y(64,4,2> 

01900  DIMENSION  KPTEST(6) 

01910  COMMON/PIE/NPI ,N2PI ,N3PI2,NPI2,TWQPI ,PI2,PI512,CSN(257) 

01920  COMMON  182160(2160) ,JSEQ(7) ,RJX(7, 6) ,RJY(7.6) 

01930+  , 16216(216) , IB216T(216) ,NANTN0(7) ,MAXFHPD(41 ,41 ) , IMAX( 41 ,41 ) 

01940+  ,FUPD(41,41),PHI(64,7),FHNAX(64>,FH{64,7>,PI,RADIAN,KPRINT 

01950+  »FREQ(6) ,RANG(6) , IGAIN(6) ,FWMAXX(6) 

01960C 

01970  INTEGER  SHIFT 

019BOC 

01990  DATA  KPTEST/4. 128, 512, 8192, 5401, 16482/ 

02000  DATA  IF0RMAT/4H ( T2 , , 4H*0* , , 7HT5 3HT6 , , 4H*0* , , 

02010+  8HT10,#+*, ,0,4H*1*, ,0,4H#2#, ,0,4H* 3#, ,0, 4H#4«, ,0,4H*5*, , 

02020+  0,4H*6*,,7H3(/T10,,5H*!*))/ 

02030  DATA  JF0RMAT/4H(T3, ,8H*NUHBER*,8HT10,*0*, ,4HT19, ,0,4HT29, ,0, 

02040+  4HT39, ,0,4HT49, ,0,4HT59, ,0,4HT69, .0.4HT79, ,0,4HT89. ,0, 

02050+  4HT99, ,0,5HT109, ,0,5HT119, ,0,5HT129, ,0,1H)/ 

02060  DATA  KF0RMAT/8H(9X,#+#, ,9H12(* - +,10H* - ♦*))/ 

02070  DATA  LF0RMAT/9H(T22,*!*, ,WT32,*!*, ,»(T42,#!*, ,8HT52,*!*, , 

02090+  WT62,*!*,,8HT72,»!*,,8HT82,*!*,,8HT92,*!*,, 

02090+  9HT102,*!#, ,9HT112,*!*, ,9HT122,*!#, ,3HT2, ,0,4H,T7, , 

02100+  0,5H.T13,,0,6*(2H,T,1H1,1H  >,1H)/ 

02110  REWIND  1 

02120  REWIND  30 

02130  REWIND  50 
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02140  REWIND  37 

02150  REWIND  98 

02160  REWIND  93 

02170C 

02180  CALL  SECOND  (START) 

02190  PRINT  10 

02200  10  F0RMAT(*1*) 

02210  PRINT*,-  START  TINE  (SECONDS >=* .START 

02220  PRINT*,"  " 

02230C 

02240  PI=2.*ASIN(1. ) 

02250  RADIAN®. 0174532925199433 

02260C 

07780C  RAD I AN=RAD IANS/DEGREE 
02/90C 

02300C  READ  INPUT  PARAMETERS 

02310C  K PRINT  30258=2*16*32*512*1024*4096+8192*16384 

02320C  K PRINT  30523= 1+2+8+16*32+256+512+1024+4096+8192+16384 

02330c3sss3=s=ss3=ss=s=s=s3ssss3sssifes3ss3ss=ssssssss==ssss=s:ss:ss==sssss=s=s==scs 

07340C 

02.150  NDTFLAG=0 

02360  IALL=0 

02370  NSIGN=3 

02380C 

02390  PRINT*,-  KPRINT?" 

02400  READ*,KPRINT 

02410C 

02420  DO  15  1=1,5 

02430  JI*I+1 

02440  DO  15  J=JI ,6 

02450  IF( ( (KPRINT.AND.KPTEST(I) ) .EQ.O) .OR. 

02460+  ((KPRINT. AND. KPTEST(J)). EQ.O))  GO  TO  15 

02470  PRINT*,-  INCOMPATIBLE  K PRINTS" 

02480  STOP 

02490  15  CONTINUE 

02500C 

02510  IF1KPRINT .EQ. 128)  CALL  MAPSEQ 

02520C 

02530C=*======*==«==  REST  OF  MAIN  PROGRAM  NOT  USED  IF  KPRINT=128  =============== 

02S40C 

02550  PRINT*,"  STARTING  RECORD  NO.?" 

02560  READ* , IREC 

02570C 

02580  IF( (KPRINT. AND. 64). EQ.O)  GO  TO  20 

07590  PRINT*,"  CPU  TIME  LIMIT  (DECIMAL  SECONDS)?* 

02600  READ*, TOTAL 

02610  PRINT  18 

02620  18  F0RMAT(*1*//1X»78( "*" )/lX»78("*")//lX» "PREFACE  FORMAT:*/ 

0763<H  3X, *REC  STAT",39X,"FREQ"/3X,-N0.",2X,"N0.*, 

02640+  "  DATE  TIME  UUUS  UUUU  RWTT  QNXZ  UUUU  NO.", 


si 


>  .N  .>  ^ 
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02650+  "  FREQ  RANGE  GAIN"//1X,"U:  UNUSED"/ 

02660+  IX, "SI  1  FOR  NEG.  DOPPLERS,  2  FOR  POS.  DOPPLERS*/ 

02670+  IX, "(S  IS  NOT  IN  ORIGINAL  PREFACE?  DEFINED  BY  SKYMAP", 

02680+  "  PROGRAM) “//IX, 78("*" )/lX,78( "*")///) 

02690C 

02700  20  IF( (KPRINT.AND.68) .NE.O)  GO  TO  50 

02710C 

02720  IF( (KPRINT. AND. 30258) .EQ.O)  GO  TO  30 

02730  PRINT*,"  FIRST  FREQ.  NO.,  LAST  FREQ.  NO.?" 

02740  PRINT*,"  (OR  0  (ZERO)  FOR  ALL  FREQ.  NOS.)" 

02750  READ*, I ALL 

02760  IF(IALL.EQ.O)  GO  TO  30 

02770  IBEGIN*IALL 

02780  READ*, I END 

02790C 

02800  30  IF( (KPRINT. AND. 30523). EQ.O)  GO  TO  50 

02810  PRINT*,"  NEG,  POS,  OR  BOTH  DOPPLERS?" 

02820  READ  40,NSIGN 

02830  40  FORMAT <A4) 

02840  IF(NSIGN.EQ. "NEG" )NSIGN-1 

02850  IF(NSIGN.EQ. "POS" )NSIGN=2 

02860  IF(NSIGN.EQ. "BOTH" )NSIGN=3 

02870  IF( (KPRINT. AND.34) .EQ.O)  GO  TO  50 

02880  NSIG3NSIGN 

02690  NSIGN*3 

02900C 

02810  50  IF( (KPRINT. AND. 16384). EQ.O)  GO  TO  55 

02920  PRINT*,"  NO.  OF  CASES  TO  BE  AVERAGED  (ODD  NO.)?', 

02930+  "  HEIGHT  FACTORS?" 

02940  READ*,  MEASES, (FACT ( I ) , 1  =  1 ,NCASES) 

02950  MDL8FLQAT(NCASES)/2.+.5 

02960  NCASE=0 

02970C 

02980  55  IF( (KPRINT. AND. 8192). EQ.O)  GO  TO  70 

02990  PRINT  60  *  MRITE(97,60>  %  HRITE(98,60) 

03000  60  FORMAT(//T22,*0*,T41,*10*,T61,*20»,TB1,*30*,T101,*40*, 

03010+  T121»*50*) 

03020C 

03030  70  IF((KPRINT.AND. 512). EQ.O)  GO  TO  80 

03040  PRINT*,"  MINIMUM  SOURCE  (LOG)  AMPLITUDE  TO  BE  USED?" 

03O50  READ*,FMIN 

03060  DO  75  M«l,6 

03070  DO  75  N»l,18 

03080  75  NUHBR(M,N)aO 

03090  MAXNUM=0 

03100C 

03110  80  IR«0 

03120  DO  100  K*1 ,6 

03130  100  SUM(K)a0 

03140C 

031 50Ceaa8888aaaaaaaa888a8888aaa8saa88a888aaaaaaa8aa 


SKYMAP  (ULCAR) 


03160C  CALCULATE  COSINE  TABLE  FOR  0  TO  PI/2r  IN  INCREMENTS  OF  2PI/10Z4 
03I70C  K PRINT  98=2+32+64 

03180C=S= ================================= =================== ======== =========== 

03190C 

03200  IF! (XPRINT.AND.98) .EQ.O)  GO  TO  120 

03/10  NPI=51Z  »  N2PI=2*NPI  *  N3PI2=3*NPI/2  *  NPI2=NPI/2 

03220  TM0PI=2.*PI  i  PI2=PI/2.  %  PI512=PI/512. 

03Z30  CSN(1)=1.  *  CSN(257)=0. 

03240  DO  110  MN=2,256 

03/50  110  CSN (MN)=COS( FLOAT (MN-1 )*PI512) 

03260C 

03/80C  INPUT  DRIFT  DATA  WITH  BUFFERIN  FROM  TAPE  1 
03290C 

03300C  IF  *16"  BIT  NOT  ON  IN  PREFACE,  DATA  IS  NOT  DRIFT  DATA? 

033 IOC  BUFFERIN  NEXT  RECORD 
03320C 

03330C  IF  BUFFERING  OUT  DATA  ONTO  TAPE30  (KPRINT=4>,  STOP  AFTER  252 
03340C  RECORDS  TO  AVOID  EXCEEDING  PRU  LIMIT 

03360C 

03370  120  IF(IREC.EQ.l)  GO  TO  135 

03380  LSKIP=IREC-1 

03390  DO  130  ISKIP=1 .LSKIP 

03400  BUFFERIN! 1 , 1 ) ( IB216! 1 ) , IB216 ( 1 ) > 

03410  IF(UNITd) )  130,135.130 

03420  130  CONTINUE 

03430C 

03440  135  DO  1290  NMAP=IREC, 10000 

03450  IF ( ( IR.GT.252) .AND. ( (KPRINT.AND.4) .NE.O) )  STOP 

03460  140  BUFFERIN  (1,1 ) ( IBZIBd ) , 18216(216) ) 

03470  IF  (UNIT(l))  280,150,140 

03480  150  IF(KPRINT. AND. 512)160, 270 

03490C 

035 IOC  STOP  AT  END  OF  DRIFT  DATA  TAPE,  UNLESS  DOING  ANTENNA  CORRELATION 
03320C  (KPRINT=51Z) ,  IN  WHICH  CASE  PRINT  OUT  THE  RESULTS 

03530C=======**================================================================= 

03540C 

03550  160  K=0 

03560CCC  NMINUS1=NANT-1 

03570CCC  DO  180  J=1,NMINUS! 

03580CCC  JPLUS1=J+1 

03590CCC  DO  180  JJ=JPLUS1 ,NANT 

03600CCC  K«K+1 

03610CCC  PRINT  170, ( J, JJ, (NUMBR(K , IDELPHI) , IDELPHI=1 ,18) ) 

03+20CCC  170  FORMAT! /IX, *PHI(*» II,*,*, II ,*)*,2X, 1816) 

03630CCC  180  CONTINUE 

03640C 

03650  PRINT  185 

03660  185  FORMAT!////*  SUM  OF  THE  SQUARE  OF  THE  PHASE  DIFFERENCES*, 
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03670+ 

03680C 

03690 

03700 

03710* 

03720C 

03730 

03740 

03750 

03760 

03770 

03780 

03790 

03000 

03610 

03820C 

03830 

03840 

03850 

03860C 

03870 

03880 

03890* 

03900+ 

03910 

03320 

03930 

03940 

03950 

03960 

03970 

03980 

03990 

04000 

04010 

04020 

04030 

04040 

04 050 

04060 

04070 

04080C 

04090 

04100 

04 110C 

04120 

04130 

04140* 

04150 

04180 

04170 


<r  ri  vyr .  v  r  . 


7  •  V  • 
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»  (RADIANS)  BETWEEN  ANTENNA  PAIRS*/) 

PRINT  190, (SUM(K) ,K=1 ,6) 

190  FORMAT (*  1-2  1-3  1-4  2-3  *, 

*2-4  3-4*/6(F9.1 )////) 

MAXNUH=( (MAXNUM/12)+1 >*12 
JVF=3 

DO  230  M=10»120,10 
JVF=JVF+2 

MM=IFIX!FLDAT(MAXNUM*M)/120. ) 

IF(MM.GT .99)  GO  TO  210 
ENCODE < 5 , 200 , JFORMAT < JVF ) ) MM 
200  FQRMAT(1H*,I2»2H*» ) 

GO  TO  230 

210  ENCODE (6. 220 , JFORMAT ( JVF) ) MM 
220  F0RMAT(1H*,I3,2H*» ) 

230  CONTINUE 

PRINT  235 

235  FORMAT!*  NUMBER  OF  OCCURRENCES  OF  INDICATED  PHASE  *, 
•DIFFERENCES  AT  ANTENNA  PAIRS  1-2, . . . ,3-4,«, 

•REPRESENTED  BY  1 , . . . ,6*/ ) 

PRINT  JFORMAT 
PRINT  KFORMAT 
PRINT*,"  DEGREES!" 

PRINT*,"  PHASE  !« 

ND*-10 

DO  260  IDELPHIS1,18 
IVF«5 

ND-ND+10  *  NT-ND+10 
ENCODE! 10,220, IF0RMAT(2) )ND 
ENCODE ( 10 , 220 , IFORMAT ( 5 > ) NT 
DO  250  K-1.6 
IVF*IVF+2 

FRCTN*FLOAT ( NUMBR ( K , I DELPH I ) ) /FLOAT (MAXNUM ) 
NN»FRCTN*120.*10.5 
ENCODE! 10,240, IFORMAT! IVF) )NN 
240  FORMAT! 1HT, 13, 1H,) 

250  CONTINUE 

PRINT*, ( I FORMAT (KJK ) ,K JK=1 , 18) 

PRINT  IFORMAT 
260  CONTINUE 

270  PRINT*,"  " 

IF! (KPRINT. AND. 8192) .NE.O) PRINT*, ”  NEG.  DOPP.  ON  TAPE  971", 

"  POS.  DOPP.  ON  TAPE  98." 

PRINT*,”  * 

PRINT*,"  STOPPED  AT  END  OF  TAPE1 ." 

STOP 
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04180C 

04190  280  IF< < 18216(1). AND. 16). EQ.O)  GO  TO  1290 

04200C 

04210C================================================ ====== 

04220C  TEMPORARILY  SORT  OUT  NEG  DOPPLERS  INTO  IB216T  AND  POS 
04230C  DOPPLERS  INTO  IB216 

04250C 

04260  IF( ( IB2161 1 ) .NE.IB216T( 1 >  > .OR. 

04270+  <IB216(2).NE.IB216T(2>>>  GO  TO  310 

04280  IRsIR+2 

04290  GO  TO  320 

04300  310  CALL  MOVLEV  (IB21B. IB216T.216) 

04310  GO  TO  1290 

04320C 

04330  320  REWIND  99 

04340C 

04350  330  BUFFER0UT(99t 1)(IB216T(1> tIB216T(216>) 

04360  IF(UNIT(99) )  350,350,330 

04370  350  BUFFEROUT  (99, 1 ) ( IB216< 1 ) , IB216<216> > 

04380  IF(UNIT(99) )  360,360,350 

04390  360  REMIND  99 


04400C 
044 IOC 
04420C 

04430  DO  1230  IJ=1,2 

04440  390  BUFFERIN(99, 1 ) ( IB216( 1 ) , IB216(216) ) 

04450  IF(UNIT(99) )  400.400,390 

04460C 

04480C  UNPACK  2160  6-BIT  CHARACTERS  FROM  216  60-BIT  WORDS; 

04490C  PUT  "1"  FOR  NEG,  "2"  FOR  POS  INTO  PREFACE  (182160(16)) 

.  .  .  .  . . i:sss»sss»ssscss:rs::ss::ssss::s 

04510C 

04320  400  DO  410  IM=1,216 

04530  DO  410  IBY=1,10 

04540  IB=10*IM+IBY-10  $  IBB=IBY*6 

04550  410  IB2160(IB)S63.AND.5HIFT< IB216(IM) , IBB) 
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04690  PRINT  430. (18216(1 ) ,IX1,216) 

04700  430  FORMAT  (6(1X,020)) 

04710  PRINT*."  “ 

04720C,s:s*<:,:i:e::s:s . . . . . . . 

04730C  MASK  PREFACE 

04730C 

04760  440  00  450  K=1.80 

04770  IB2160(K)3IB2160(K) .AND.15 

04780  450  CONTINUE 

04790  IB2160(7)-IB2160(7).AN0.3 

04800  IB2160(8)XIB2160(8).AND.3 

04810  IB2160(9)SIB2160(9) .AND. 7 

04820  182160(11 )SIB2160( 11 ) .AND. 7 

04830C 

04840C=33XX33X333=3==333=333933333===33===X=3=33=33X333==3B33=3=3X=33==33333=333 
04850C  BUFFER  OUT  DRIFT  DATA  ONTO  TAPE  30  (KPRINTM) 

04860C  AND  PRINT  RECORD  #  AND  PREFACE 

04870Cx=ssscssassS3=s3SS=8SSSS3SC8SSXSSSBSB=sssssssssss:sss3SSS3S3SESSS&3SSSS=ss= 

04880C 

04890  IF(KPRINT.NE.4)  GO  TO  480 

04900  IRR=IR-1  »  NRRxNMAP-l 

04910  IF(IJ.EQ.2)IRRxIRR+l  $  IF( I J.EQ.2)NRR»NRR+1 

04920  PRINT  460. IRR,NRR,( 182160(H) .M31. 80) 

04930  460  F0RHAT(lX,2I6,I3rlX,5Il.lX,6Il,17(lX,4Il) ) 

04940  470  BUFFEROUT( 30.1)  (IB216(1). 18216(216)) 

04950  IF(UNIT(30))1230. 1230. 470 

04960C 

04970C333BX33=3333333333X333333X33333333333933=3X3=9391:333333X33333X3==X3333X333 

04980C  PRINT  RECORD  NUMBER  AND  MASKED  PREFACE 

04990C33 333 393333 3 33 3 333 333333333 33 3 3 333333 33 3 333333X333333333331,333333333333333 
05000C 

05010  480  IF(KPRINT.AND. 256)490, 510 

05020  490  PRINT  500. (NMAP-2+IJ). (182160(1). I31.80> 

05030  5 00  F0RMAT(lX.I6.1X.I3.1X.5(Il>.lX.6(Il>.17(lXr4(Il)>) 

05040C 

050SOC33X33S33X3S333S3XSS33333383X333B 333333 33X333333 333333333333333333333333333 
05O60C  PRINT  UNPACKED  DUMP.  WITH  MASKED  PREFACE 

05070C33333333333333333 3333333333 -3S 33 3 33333333 3333 3 3 333 333333 333333333333333333 
05080C 

05090  510  IF1KPRINT. AND. 8)520, 540 

05100  520  PRINT  530, ( IB2160( I ) .1=1 .2160) 

05110  530  F0RMAT(54(1X,40I3/)) 

05120C 

05130  540  IF(KPRINT.EQ. 1 .OR.KPRINT .E8.8.0R.KPRINT.EQ.256.0R.KPRINT.EQ. 

05140+  4)  GO  TO  1230 

05150C 

051B0C33333 3333333 333 3 33333333 3 33333 3333=333 33333333 33 333333 33 333333333333333 3 33 
05170C  DECODE  PREFACE  IF  NOT  ALREADY  DECODED  FOR  THIS  CASE 

05180C3  fIZSIXSaSSSZ8:SSS3Eia8S3tSSSSi:3&C88CSSI8C3SeBMSSS«S»S«SSBSSa8KCI*SSE8E 

05190C 


17  3 


SKYMAP  (ULCAR) 


05200  IF( (NSIQN.EQ.3) .AND. < ISIGN.EQ.2) )  GO  TO  698 

052 IOC 

05220  IVSTATaIB2160(l) 

05230  IYEAR310*I82160(2)4lB2160(3> 

05240  LDAY-IDAY  $  LHR=IHOUR  *  LMIN=IMIN  »  LSEC=ISEC 

05250  IDAY3100#IB2160(4)4l0*IB2160(5>4lB2160(e> 

05260  IH0URa10*IB2160( 7)4182160(8) 

05270  IMINa10*IB2160(9>4lB2160(10) 

05280  ISECa10#IB2160( 11 )4lB2160( 12) 

05290  IREP>504( 182160(21 ) .AND.2)#2S4( ( 162160(21 ) .AND.4)*75)/2 

053004  4(( 182160(21). AND. 2>#( 182160(21 ) .AND.4)«75)/4 

053 IOC 
05320C 

05330C  IDB=20  FOR  1  DB  INCREMENTS 
05340C  IDB=40  FOR  1/2  08  INCREMENTS 

05350C  ITT=TASK  (FOR  ANTENNA  SEQUENCE  SPECIFICATION;  SEE  SUBROUTINE  ANT) 
05360C  GOOSE  BAY!  ITT=0 
05J70C  IN!  PROGRAM  NUMBER 

05380C333 33333333333333 333 333 333 33 3  »3i»s 
05390C 

05400  IDBa( 182160(22) .AND. 4)*5+20 

05410  ITT=0 

05420CCC  ITT=10*IB2160(23)4( 182160(24) .AND. 3) 

05430  IQ=IB2160(25) 

05440  INaIB2160(26) 

05450C 

05460C=aaaaaaaaaa3aaaaaasaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

05470C  IF  AVERAGING  DATA  OVER  SEVERAL  CASES(KPRINTa16384) , 

05480C  STOP  IF  TIME  CONTINUITY  OF  CASES  IS  BROKEN;  OTHERWISE. 

05490C  STORE  DATE  AND  TIME  (BOTH  DECODED  AND  NON-DECODED  FORMS) 

05300C  IF  THIS  IS  THE  MIDDLE  CASE 

05510C333333333333333333333333333333333333333333333333333333333333333333 

05320C 

05530  IF( ( (KPRINT.AND. 16384) .EQ.O) .OR. 

055404  ( (NMAP-IREO.LE.2) )  GO  TO  600 

05550  KASESEQa10 

05360  IF(IN.EQ.6.0R. IN.EG.9)KASESEQa18  %  IF( IN.EQ.7)KASESEQa34 

05570  IF ( ( IDAY-LDAY) .GT. 1 )  GO  TO  570 

05380  I IHRaIHGUR424*< IDAY-LDAY) 

05590  IF( ( I IHR-LHR ) . GT . 1 )  GO  TO  570 

05600  IIMIN3IMIN460*(IIHR-LHR) 

05610  IF( (IIMIN-LMIN) .GT. 1 )  GO  TO  570 

05620  IISECaISEC460«( IIMIN-LMIN) 

05630  IF((IISEC-LSEC) .GT.KASESEG)  GO  TO  570 

05640  GO  TO  580 

05650  570  PRINT#. "SEQUENCE  OF  CASES  NOT  CONTINUOUS.”  *  STOP 

05660  580  IF(NCASE.NE.MDL)  GO  TO  600 

05670  MDLYR=IYEAR  *MDLDAYaIDAY  *MDLHR3IHOUR 

05680  MDLMIN>IMIN  *MDLSEC»IS£C 

05690  DO  590  I>1.12 

05700  590  IBTEMP( I )«IB2160( I ) 
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0571 OC 

05720C< . . . . . . . . 

05730C  FREQUENCY  IN  PREFACE  IN  10  KHZ  UNITS;  CONVERTED  TO  FREQ(K)  IN  KHZ 

05/40C  RANGE  IN  KN 

05750C 

057B0C  IF  KPRINTM6384,  STOP  IF  FREQ,  RANGE >  OR  GAIN  CHANGES!  OR  IF  RANGE 

05770C  GREATER  THAN  510  KN 

05/80C 

05790C  IF  RANGE  G.T.  510  AND  K PRINT  NOT  16384,  SKIP  THAT  RECORD  AND  CONTINUE 
05800CaaaaaBaaaaaaBBaaaBaBBBBBaaBBBBaBBSBaaBBaBBaaaaaBaaaBaaBBaBaaaaBBaaBBBB 
058 IOC 

05820  600  DO  595  Kal, 6 

05830  RANG ( K ) =0 . 

05840  FREQ(K)a0. 

05850  595  IGAIN(K>aO 

05860  KL»6 

05870  IF(IN.GE.8>  KL=3 

05880C 

05890  DO  670  KM, KL 

05900  RA-RANG(K)  <  IGAaIGAIN(K>  *  FREaFREO(K> 

05910  FREG(K)a12.5  *  RANG(K)=0. 

05820  DO  620  KKal,4 

05930  KKKa4*K-KK+33  *  KK10a10**KK  »  KKKK=4*K-KK+56 

05940  IF(KK.EQ.l)  IGAIN<K)M-10)*IB2160<KKKK+1  > 

05950  FKK  aIB2160(KKK J*KK10 

05960  FREG(K)=FREG(K)+FKK 

05970  IF(KK.EQ.4)G0  TO  620 

05980  FKK«IB2160<KKKK)*KK10 

05990  RANG(K)»RANG<K>+.15*FKK 

06000  620  CONTINUE 

06010  IF(IQ.EG.5.AND.<(K/2>*2).E8.K>630,640 

06020  630  FREQ(K)aFREG(K-l) 

06030  RANG(K)aRANG(K-l) 

06040C 

06050  640  IF(RANG(K) .GT.510. ) 650, 660 

06060  650  PRINT*, "RANGE! ",K»")  IS  TOO  HIGH;  RANGE*" ,RANG(K> 

06070  IFMKPRINT.AND.  18384). NE.O)  STOP 

06080  PRINT*, "RECORDS  ",(MWP-1),"  AND  ",<NMAP>,"  SKIPPED.  " 

06090  GO  TO  1290 

06100  660  IF((KPRINT.AND.16384) .EG.O.QR. (RA.EQ.RANG(K) .AND. IGA.E8. 

06110+  IGAIN<K).AND.FRE.EQ.FREG(Kn.0R.<NMAP-IREC>.LE.2>  GO  TO  670 

06120  PRINT*,"  CHANGE  OF  FREG,  RANGE  OR  GAIN."  %  STOP 

06130C 

06140  670  CONTINUE 

06150C 

06160  CALL  ANT< IFF , ITT , IN*NF,NANT,NDGPP,SINZMAX, 1 ) 

06170C 

06180  IF(IVSTAT.EG.O)  NFal 

06190  DO  690  K>NF,6 

06200  IF  (K.EQ.NF.0R.NF.EQ.6)  GO  TO  680 

06210  RANG(K)»0.  %  FREQ(K)»0. 
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06220  690  CONTINUE 

06230C 

06240  IF< IALL.NE.O)  GO  TO  694 

06250  IBEGIN=1 

06260  IEND=NF 

06270  GO  TO  696 

06260  694  IF((IBEGIN.NE.IENO> .OR. 

06290*  ( IEND.LE.NF) )  GO  TO  696 

06300  PRINT*. "  NO  FREQ.  NUMBER  " . I END. *  IN  PROGRAM  NUMBER  “.IN 

06310  STOP 

06320  696  IF(IENO.LE.NF>  GO  TO  698 

06330  PRINT#,"  'LAST  FREQ.  NO.'  “»IEND,"  IS  TOO  HIGH  FOR  “ 

06340  PRINT*,"  PROGRAM  NO.  “.IN, “I  HAS  BEEN  RESET  TO  ",NF 

06350  IEND*NF 

06360C 

06370  699  KX*16 

06360  DO  1170  IFFdBEGIN, IEND 

06390  IF(FREQ( IFF). LE. 12.5)  GO  TO  1170 

06400C 

06410C 

06420  IF( ( (KPRINT.AND.98) .EQ.O) .OR. ( ISIGN.EQ. 1 ) ) 

06430+  CALL  ANT(IFF,ITT,IN,NF,NANT,ND0PP.SINZMAX,2) 

06440C 

06450  CALL  SPLIT(NDOPP,NANT,IFF,IDB,ISIGN.IBEGIN) 

06460  IF ( (KPRINT. AND. 16384) .EQ.O)  GO  TO  920 

06470C 

0g480C3:3s:sscnra>::ss:i::isia»aiass . . 

06490C  AVERAGE  THE  RAH  DRIFT  DATA  (IN  COMPLEX  DOMAIN)  OVER  SEVERAL  CASES 
06500C  (K PRINT* 16384) .  NO.  OF  CASES  (MUST  BE  ODD  NO.)  AND  THE  HEIGHT  FACTOR 
06310C  OF  EACH  IS  ASKED  FOR  AT  BEGINNING  OF  PROGRAM. 

06320C 

06330C 

06540  IF( (NCASE.NE. 1 ) .OR. (NSIGN.EQ.3.AND. ISIGN.NE. 1 ) )G0  TO  750 

06330C 

06560  DO  740  I=1,ND0PP 

06570  DO  740  J=1,NANT 

06580  IX)  740  K»1.2 

06390  740  X(I.J,K)«Y(I.J,K)»0 

06600C 

06610  750  DO  760  I=1,NDGPP 

06620  DO  760  J=1,NANT 

06630  X(I, J,ISIGN)9FACT(NCASE)*FH(I, J)#COS(PHI(I, J) )+X(I , J.ISIGN) 

06640  760  Y(I, J,ISIGN)»FACT(NCASE)*FM(I,J)*SIN(PHI(I,J))+Y(I, J.ISIGN) 

066S0C 

06660  IF(NCASE.LT.NCASES)  GO  TO  1170 

06670C 

06680  DIV*0 

06690  DO  770  L«1,NCASES 

06700  770  DIV*DIV+FACT(L) 

06710C 

06720  DO  790  I-l.NDOPP 
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06730  00  790  J-l.NANT 

06740  FM( I, J)=SGRT( (X(I » J» ISIGN) )#*2+(Y( I , J» ISIGN) )**2)/DIM 

06/50  IF(X(I,J,ISIGN) .EG. 0.0)  GO  TO  780 

06760  PHI (I , J)=ATAN2( Y( I » J» ISIGN) ,X( I ,J, ISIGN) > 

06770  GO  TO  790 

06780  780  PHI ( I , J) =0 

06790  790  CONTINUE 

06800C 

06810  IYEARaMDLYR  *IDAY=MDLDAY  *  IHOURaMDLHR 

06820  •  IMIN=MDLMIN  *ISEC=HDLSEC 

06830  00  800  1-1,12 

06840  800  IB2160( I )=IBTEMP( I ) 

06850C 

06860  IF(NSIGN.EG.3.AND.ISIGN.I€.2)  GO  TO  820 

06870  NCAS=2*NCASES-2 

06880  00  810  1=1 ,NCAS 

06890  810  BACKSPACE  1 

06900C 

06910Caaaaaa*aaaaaaaaaaaaaaaaaaaaassa**,,aaaasBaaaaaaaaaaaaaaaaaaaaa**B,,*ss*,!!SS*s 
0692 OC  TO  PRINT  THE  AVERAGE  OF  THE  LOG  AMPLITUDES  ON  THE  4  ANT. AT  EACH 
06930C  DOPPLER  (KPRINT=4096>  AND/OR  PRINT  THE  MAXIMUM  LOG  AMPLITUDE  OF 
06940C  EACH  FREQ.  (KPRINT=8192>  AND/OR  COMPARE  LOG  AMPLITUDES  (KPRINT=16) 

06950C  AND/OR  PHASES  IN  DEG  (KPRINTa1024>  OF  EACH  DOPPLER  ON  THE  4  ANT. 

06960C  (FIRST  32  DOPP  ONLY  FOR  4096,16.1024?  8192  PRINTED  AFTER  "DO  1170'  LOOP) 
06970C 

06980C  K PRINT  13328=16+1024+4096+8192 
06990C  K PRINT  1040=16+1024 

07000Ca=aaaaaaaaaaaaaaaaaaaaaaaBaBaaBB*aaaaasaaaaaaBaaBaaaBaaaBBBBBBXB-=BB==ss=B 
0701 OC 

07020  820  IF((KPRINT. AND. 13328). EG. 0)  GO  TO  950 

07030  LSIGN="NEG"  *  IFdJ.EB.2)  LSIGN="POS" 

07040C 

07050  IF( (KPRINT. AND. 4096)  .EG.O)  GO  TO  850 

07080  DO  830  1=1,32 

07070  AVE(I)=0. 

07080  DO  825  Jal ,NANT 

07090  825  AVE( I ) aAVE( I )+FM( I , J ) 

07100  830  AVE(I)=AVE(I)/NANT 

07110  PRINT  840, (IB2160( I ) , 1=2, 12) ,FRE8( IFF) ,RANG( IFF) ,LSIGN, 

07120+  ( ( IFIX(AVE(I ) ) ) ,1=1 ,32) 

07130  840  F0RMAT(1X,5I1 ,1X,6I1 , 1X,2(F6. 1  > ,  IX, A3, 3X, 3213) 

07140  IF( (KPRINT. AND. 1040) .EQ.O.AND.IFF.EG.IEND)  PRINT*,"  * 

07150C 

07160  850  IF( (KPRINT. AND. 8192) .EG.O)  GO  TO  890 

07170  XAM*0 

07180  DO  860  I=1,ND0PP 

07190  DO  860  J-l.NANT 

07200  860  XAM*AHAX1(XAM,FH(I,J) ) 

07210  KX»KX+3 

07220  NXAM=2*IFIX(XAM)+22 

07230  ENCODE (4,870, LFORMAT ( KX ) ) NXAM 


177 


SKYMAP  (ULCAR) 


07240  870  F0RMAT(I3»1H») 

07250  ENCODE <3, 880 ,LF0RMAT(KX+1) ) IFF 

07260  880  FORMAT ( 1H* , I 1 , 1H* ) 

072 70C 

07280  880  IFtKPRINT. AND. 16)900,920 

07290  900  PRINT  810, (182160(1), 1=2, 12), FREQ(IFF),RANG(IFF),LSIGN. 

07300+  ( ( IFIX(FM( I » J) ) , 1  =  1 ,32) , J  =  1 rNANT) 

07310  910  F0RMAT(1X,5I1 »1X,BI1 »1X,2(F6. 1) » 1X,A3,3X,32I3/,6(33X,32I3/) ) 

07320C 

07330  920  IF(KPRINT. AND. 1024)930,1170 

07340  930  IF( (KPRINT.AND. 16) .EQ.O)  PRINT  910.(182160(1) ,1=2,12), 

07350+  FREQ(IFF),RANG(IFF),LSIGN 

07360  PRINT  940, ( ( ( IFIX(PHI ( I > J > /RADIAN) > , 1=1 ,32) , J=1 rNANT) 

07370  940  F0RMAT(7(1X,32I4/)) 

07380  GO  TO  1170 

07390C 

07410C  CHECK  ANTENNA  CORRELATION  (KPRINT=512). 

07420C  K=1 r . . . »G  REPRESENTS  ANTENNA  PAIRS  l-2,l-3,l-4,2-3,2-4,3-4. 

07430C  SUM(K)  IS  THE  SUM  OF  THE  SQUARE  OF  THE  PHASE  DIFFERENCES  (IN  RADIANS) 
07440C  BETWEEN  BOTH  ANTENNAS  OF  A  PAIR. 

07450C  NUMBRtK . I  DELPHI )  COUNTS  FOR  EACH  ANTENNA  PAIR  THE  NUMBER  OF  TIMES  THE 
07460C  PHASE  DIFFERENCE  IS  THE  ABSOLUTE  VALUE  OF  0-10, 10-20,..., 170-180 
07470C  DEGREES  (FOR  -180  TO  +180  DEGREES). 

07480C  THE  PHASES  ARE  COMPARED  AT  ALL  DOPPLER  NUMBERS  WHOSE  AMPLITUDES  ARE 
07490C  AT  LEAST  FMIN  ON  ALL  ANTENNAS,  FOR  POS,  NEG,  OR  BOTH  TYPES  OF 
07500C  DOPPLERS  (ACCORDING  TO  THE  CHOICE  INDICATED  AT  THE  BEGINNING  OF 
07510C  THE  RUN)  AND  FOR  THE  FREQUENCY  NUMBER(S)  INPUTTED  AT  THE  BEGINNING 
07520C  OF  THE  RUN. 

07530C  THE  RESULTS  ARE  PRINTED  WHEN  TAPE1  RUNS  OUT  OF  DATA 
07540C  (SEE  STATEMENT  160  ABOVE). 

075500=*  ssssssissscssssssrssssssssssssssssssssssssrssssssssssssssssptsssssssssss 

07560C 

07570  950  IF( (KPRINT.AND. 512) .EQ.O)  GO  TO  1010 

07580C 

07590  DO  990  I=1,ND0PP 

07600  DO  870  II*1,NANT 

07610  970  IF(FH( I , II ) .LT.FMIN)  GO  TO  990 

07620  K»0 

07630  NMINUS1=NANT-1 

07640  DO  980  J=1,NMINUS1 

07650  JPLUS1«J+1 

07680  DO  980  JJ=JPLUS1 ,NANT 

07870  K«K+1 

07680  SUM(K)=SUN(K)+(PHI(I,J)-PHI(I,JJ>>#*2 

07690  DELPHI=ABS( (PHK I, J)-PHI(I , JJ) )/(RADIAN»10. ) ) 

07/00  IF(DELPHI.GT.18.)  DELPHI=ABS(DELPHI-36. ) 

07/10  IDELPHI»IFIX(DELPHI+1. )  %  IF(IDELPHI.EQ.19) IDELPHI>18 

07/20  NUM8R(K, IDELPHI)SNUMBR(K , I DELPHI )+l 

07/30  980  MAXNUM»MAXO(MAXNUM,NUMBR(K , I DELPHI ) ) 

07/40  990  CONTINUE 
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07750  GO  TO  1170 

07760C 

07780C  CALL  FOU  TO  CALCULATE  FWPD 
07790C 

07800C  K PRINT  98=2+32+84 
07820C 

07830  1010  IF0U2=1 

07840  IF( (KPRINT.AND.98) .EQ.O)  GO  TO  1020 

07850  IF( ISIGN.EG. 1 )  GO  TO  1170 

07860  IF0U2=2 

07870C 

07880  1020  DO  1165  IF0U=1.IF0U2 

07890  IF((KPRINT.AND.98).EQ.0>  GO  TO  1040 

07900  IF( ( (KPRINT.AND.34) .NE.O) .AND. 

07910+  ((NSIG. AND. ISIGN). EQ.O))  GO  TO  1040 

07920C 

07930CCC  DPTIM=SECOND(CO) 

07940CCC  PRINT*. "START  FOU=".DPTIH 

07950  CALL  FOU( ISIGN. NDOPP.NANT. IFF. IBEGIN. IFOU) 

07960CCC  DPTIM=SECQND(CP) 

07970CCC  PRINT*. "END  FOU=".DPTIH 

07980  IF( (KPRINT.AND.64) .NE.O)  CALL  HAPDATA( IFF.HDTFLAG. IFOU.NHAP) 

07990  1040  IF((KPRINT.AN0.2) .EQ.O)  GO  TO  1165 
08000  IF(((KPRINT.AND.2). NE.O) .AND. 

08010+  ((NSIG. AND. ISIGN). EQ.O))  GO  TO  1165 

08020C 

08030C==*=*=«*=S!S*«3=!!=**sss==SSSBS*====*==*!'==;*====sa:a!===ss,!*as***s*= 

08040C  OUTPUT  SKYHAP 

08050C  ZHAX*ZENITH  ANGLE  OF  FURTHEST  K  VECTOR  IN  SKYHAP 
08060C  (AT  THE  CORNERS  OF  THE  SQUARE  HAP) 

08070C  RAD I AN=RADI ANS/DEGREE ) 

08080C  SCALE = I NCREHENT  OF  SKYHAP  COORDINATES  IN  KH 

08090C========= ===================================== ==================== 

08100C 
081 IOC 

08120C=*=====*======== =======  HAP  HEADING  FOR  KPRINT  2  *==»*==«■***=*=== 

08130  1050  PRINT  1110.(K.KB1.6).IVSTAT.IYEAR.IDAY.IH0UR. 

08140+  IMIN. ISEC. IREP. I DB. NDOPP.NANT. FREQ. IFF. 

08150+  FREQ( IFF) >RANG( IFF) .RANG. (NANTNO(K) ,K=1 .NANT) . I GAIN 

08160C 

08170  CALL  PRIN( IN. ISIGN. IFUPD.SINZHAX. IFF) 

08180C 

08190  1110  FORHAT ( 1H1 . 10X*VSTAT  YEAR  DAY  HOUR  HIN  SEC  REP  ID6  NDOPP  *. 
08200+  *NANT  NF*.4X.6( 14. 4X)/8X. 216. 15.3(4. 15. 14,215 

08710+  *  FREQ+6F8. 1*  KHZ*/11X*FREQ.  NO.  « 

08220+  11*.  AT*F8.l*  KHZ)  RANGE»*F7. 1 ,*  KH  *,*RANG«6F8.1 

08230+  *  KH*/11X*ANTENNA  SEQUENCE  *413, 17X*GAIN*I6,5I8*  DB*) 

08240C 
08250C 
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AOOCAp 

08270  1165  CONTINUE 
08280  1170  CONTINUE 
08290C 

08310C  PRINT  THE  MAXIMUM  LOG  AMPLITUDE  FOR  EACH  FREQUENCY  (KPRINT=8192 > 
08330C 

08340  IF((KPRINT. AND. 8182). EQ.O)  GO  TO  1230 

08350  LSIGN="N£G"  *  IF(IJ.E8.2)  LSIGN="POS" 

08360  ENCODE (6 > 1180 rLFORMAT( 13) )LSIGN 

08370  1 180  FORMAT <1H# , A3 , 2H* » > 

08380  £NC0D£(7» 1190»LFORMAT(15>  > ( IB2160(K) ,K=2,6) 

08390  1190  FORMAT ( 1H* ,51 1 , 1H* ) 

08400  ENCODE! 10> 1200, LFQRMAT (17) )( 18216000 »K=7, 12) 

08410  1200  F0RHAT(1H*,2I1,I2,I1,I2,I1»1H*) 

08420  IF( 182160(16). EG. 2)  GO  TO  1210 

08430  HRITE(97.LF0RMAT>  *  GO  TO  1220 

08440  1210  WRITE(98»LF0RMAT) 

08450  1220  PRINT  LFORMAT 
08460  IF(IB2160(16).EG.2>  PRINT#,"  “ 

08470C 

08480  1230  CONTINUE 
08490C 

08500  IF( (KPRINT.AND.64) .EQ.O)  GO  TO  1290 

08510  CALL  5EC0ND( ACTUAL) 

08520  IF (( TOTAL- (ACTUAL-START) ) .GT. 300.0)  GO  TO  1290 

08530C 

08540  NREC=NMAP 

08550  PRINT  1240 

08560  1240  FORMAT (///IX, #RECORD  NO.  AND  FIRST  2  MORDS  OF  EACH#, 

08570+  *  DRIFT  RECORD  NOT  YET  PROCESSED:#/) 

08580  1250  BUFFERIN(1,1) (18216(1), 18216(2)) 

08590  IF(UNIT(1) )  1260,270,1250 

06600  1260  NREC-NREC+1 
08610  IF( ( 18216(1 > .AND. 16) .NE.O) 

08620+  PRINT  1270,NREC,IB216(1),IB216(2) 

08630  1270  F0RMAT(1X,I6,2(1X,020>) 

08640  CALL  SECOND (ACTUAL) 

08650  IF (( TOTAL- ( ACTUAL-START )).GT. 5.0)  GO  TO  1250 

08660  PRINT  1290 

08670  1280  FORMAT!// IX, #RAN  OUT  OF  TIME)  THERE  MAY  BE  MORE*, 

08680+  «  DRIFT  DATA  ON  TAPE1 .#) 

08690  STOP 

08700C 

08710  1290  CONTINUE 
08720C 

08730  STOP 

08740  END 

08750C 
08760C 
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08770C 

08780C 

08790C 

08800  SUBROUTINE  ANT( IFF, ITT, IN,NF,NANT,NDOPP,SINZMAX,NUM) 

0881 OC 

08820  INTEGER  AN 

08830  DIMENSION  ANTY(7> ,ANTX(7> ,AN(5, 8) 

08840  COMMON  182160(2180) , JSEG<7) ,RJX(7,6> ,RJY(7,6> 

08 830+  , 18216(216) , I8216T(216) »NANTN0(7>  »MAXFWPD(41 .41 ) , IMAX(41 ,41 ) 

08860+  ,FNPD(41 ,41 ) .PHI (64, 7) ,FHMAX(64) ,FM(64,7) ,PI , RADIAN. KPRINT 

08870+  ,FREQ(6) ,RANG(6) ,IGAIN(6) ,FMMAXX(6) 

08880C 

08900C  ANTENNA  COORD  IN  METERS 

08910C  ANTYa  Y  COORD 

08920C  ANTX=  X  COORD 

08930C  X  AX I S=NORTH= AZ I MUTH  ZERO  DEG 

08940C  (-Y)  AX I S=EAST= AZIMUTH  90  DEG 

08960C 

08970  DATA  ANTY  /O. ,57.73502,-28.86751 ,-28.86751 , 

08980+  0., 28.86751, -28.86751/ 

08990  DATA  ANTX  /O. .0. ,-50. ,30. . 

09000+  33.3333,-16.6667,-16.6667/ 

090 IOC 

09020Caa33aaaa3aaaaaaaaaaaaa3aaaaaaaaaaaa3aaaaaaaaaaa3aaaaaa3a33aaaaaaaa 

09030C  GENERATE  JSEQI  ARRAY  OF  SEQUENCE  NO'S  FOR  ANTENNAS 
09040C 

09050C  CAN  USE  UP  TO  7  ANTENNAS 
09060C  FOR  EACH  ANTENNA  SEQUENCE,  DEFINE". 

09070C  DATA(AN(KT,J),J=1,8) /SEQUENCE-OF- ANTENNAS , 99/ 

09080C  WHERE  KT  IS  DETERMINED  FROM  ITT  (SEE  BELOW) 

09090C  98  SIGNIFIES  BLANK,  99  SIGNIFIES  END  OF  SEQUENCE 

09100C 

091 IOC  GOOSE  bay:  ITT=0,  KTal,  ALL  4  ANTENNAS  USED 

09120CaaaaaaaaaaaaaaaaaaaaaaBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaasaaaaaaaaaa 

09130C 

09140  DATA(AN(  1 ,J) ,Jal ,8)/l ,2,3,4,99/ 

09150  DATA(AN(  2,J),Jal,8)/l,2,3,4,5,6,7,99/ 

09160  DATA(AN(  3, J) ,Jal ,8)/l ,98,98,98,5,6,7,99/ 

09170C 

09180  IF(NUM.EQ.2)  GO  TO  40 

09190C 

09200CaaaaaaBaaaaaaaBaaaaaaaBaaa3aaa3aaBBaaaaaaa3aaaaaa3aaaaaaaaaaaaaaaa 
092 IOC  DETERMINE  KT 

09220Caaa=aaaaaaa3B=aaa=3saaaaaaa=aaaaa . . . . . . 

09230C 

09240  KTaITT/lO 

09250  KTaITT-6*KT+l 

09260C 

09270Caaaaaaaaa=aaaaaaaaaaaaaa=aaa==aaaaaaa,aaaaaB=aaaaaaasBaaaaaaaaaaaa 


181 


‘A 

V. 

a 

«! 


,s*  • 

1 


hi 


v. 

§ 


>.  • 


,s , 

V. 


fci 


tv 


>r. 

y« 

y. 


he 


1 

M 


y. 

>. 


SKYMAP  (ULCAR) 

09280C  GENERATE  JSEQ  (ANTENNA  SEQ.K  DETERMINE  NANT  (NO.  OF  ANTENNAS) 


JS=0 

DO  20  J=l,8 

IF  (AN(KT,J)-98> 10,20,30 
10  JS*JS+1 
JSEQ(JS)=J 
NANT=JS 
20  CONTINUE 


09300 
09310 
09320 
09330 
09340 
09350 

09360 
09370C 

09390C  determine: 

09400C  NDOPP:  NO. OF  DOPPLERS 

094  IOC  NF:  NO.  OF  SOUNDING  FREQ. 

09420C  NC:  NO. OF  CHANNELS 

09430C  ss:  SAMPLE  SPACING  CSECI-TIME  BETWEEN  SAMPLES  AT  ONE  FREQ,  ONE  ANT 

09440C  SW:  SPECTRAL  WIDTH  [HZ GRANGE  OF  NEC  OR  POS  DOPPLER  FREQUENCIES 

09450C  DFR:  SPECTRAL  SPACING  CHZJ=DOPPLER-FREQ  RESOLUTION 

09470C 

30  ND0PP=32+22#( IN/7) 

NC=24/ ( ( IN/8J+1 ) 

NF=NC/NANT 

SS=.0?125*NF 
SW=-5/SS 
DFR=SW/NDOPP 
RETURN 


09480 

09490 

09500 

09510CCC 

09520CCC 

09530CCC 

09540 

09550C 

09560C== 


09570C  TO  LIMIT  SKYMAP  TO  THE  MAIN  ANT.  LOBE,  DEFINE  THE  X  AND  Y 
093B0C  COMPONENTS  OF  THE  FURTHEST  K  VECTOR  AS! 

09590C 

09S00C  -.707*VK*SIN(MAXIMUM  ZENITH) 

09610C 

09620C  WITH.*  VK=ABS. VALUE  OF  WAVE  PROPAGATION  VECTOR  K 
09630C  =2* PI /WAVELENGTH 

09640C  SIN(MAX.  ZEN. )=WAVELENGTH/( MAXIMUM  ANT.  SPACING) 

09S50C  (BUT  LIMIT  THE  MAX.  ZENITH  TO  45  DEGREES) 

09660C 

09670C  THUS  THE  X  COMPONENTS  OF  THE  (41X41)  ARRAY  OF  K  VECTORS  ARE! 

09680C 

09690C  -.707*VK*SIN(MAX.  ZEN. (*(XIX/20> =RJ*XIX 
09700C  WHERE  XIX=+20, . . . ,+l ,0,-1 , . . . ,-20 
09710C 

09720C  Y  COORDINATES  ARE*.  -.707*VK*SIN(MAX.  ZEN.  )*(YIY/20)=RJ*YIY 

09730C  WHERE  YIY*+20, . . . ,+l ,0,-1 , . . . ,-20 

09740C 

09750C  AK=  DOT  PRODUCT  <K,A)=(RJ#XIX*ANTX+RJ*YIY*ANTY> 

09760C 

09770C  WAVELENGTH  IN  METERS 

09780C*  B3issssB3isr8::::xxc:s:ss::ss3s:c:tsssca:ssssss&:c:c3:ssessszssczs2css:xs 
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09790C 

09800  40  NAVEL£N*299792. 5/FREQ ( IFF) 

09810  VK»2.*PI/HAVELEN 

09820  SINZMAXrWAVELEN/100. 

09830  IF(KT.GT.2)  SINZMAX=UAVELEN/200. 

09840  IF(SINZMAX.GT. 0.707)  S1NZHAX-.707 

09850  RJ»-.707*VK*SINZMAX/20. 

09860  00  50  J=1  iNANT 

09870  JS«JSEQ(J> 

09880  NANTN0(J)«AN(KT» JS) 

09890  RJY ( J » IFF) sRJ*ANTY(NANTN0(  J ) ) 

09900  SO  RJX(J,IFF)=RJ#ANTX(NANTNO(J>> 

09910  RETURN 

09920  END 

09930C 

09940C 

09950C 

09960C 

09970C 

09980C 

09990C 

10000C 

10010  SUBROUTINE  SPLIT(NDOPP,NANT,IFF,IDB.ISIGN,IBEGIN> 

10020C 

10030C***sax****s=a,******xaa*e*B**J!,***J*s®*JSBe*****®3S,a!,**a!**,,**IB******SS!SisS!SBasa 

10040C  GOOSE  BAY 

10050C  SPLITS  IB21B0  FROM  BUFFER IN  INTO  PHASES  AND  MAGNITUDES 
10060C  INPUTS  IB2160  UNPACKED  RAN  DRIFT  DATA 

10070C  NDOPP  NO.  OF  DOPPLERS  USED  IN  CALCULATION 

10080C  NANT  NO.  OF  ANTENNA'S  USED  IN  CALCULATION 

10090C  IFF  FREQUENCY  NO. 

10100C  IDB  NO.  OF  LSB'S  IN  A  BEL  OF  MAGNITUDE 

101 IOC  OUTPUTS  PHI  NDOPP  X  NANT  ARRAY  OF  PHASES  IN  RADIANS 

10120C  FM  NDOPP  X  NANT  ARRAY  OF  LOG  10  MAGNITUDES 

10130C  CONVERTED  TO  LINEAR  AMPLITUDES 

10140C 

10150C  FOR  K PRINT  16.512,4096  OR  8192.  LEAVE  AMPLITUDES  AS  LOG  VALUES 

10t80C«>»»»»»:» . . . . 

10170C 

10180  COMMON  182160(2160), JSEQ(7),RJX(7,6).RJY(7,6> 

10190*  . 18218(216) . IB216T(216) »NANTN0(7) ,MAXFHPD(41 ,41 ) . IHAX(41 .41 ) 

10200*  »FWPD(41 ,41 ) .PHI (64.7) ,FHMAX(64) ,FM(64,7) ,PI .RADIAN.KPRINT 

10210*  ,FREQ(6),RANG(6),IGAIN(6).FHMAXX(6> 

10220C 

10230  DB-IDB 

10240  NK»NOOPP#NANT/2 

10250  DO  20  K*l»NK 

10280  J  * ( 2»K-2 ) /NDOPP* 1 

10270  I«2#K-(J-i)#ND0PP 

10280  K5*5*(K*( IFF-l >*NK+( JSEQ( J)-J)*ND0PP/2>*240 

10290  FM( I-l , J)sFLOAT( IB2160(K5-4) ) 
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10300  FM<I  ,J)=FL0AT<IB2160<K5-1)) 

10310  IFdKPRINT.AND.  12816). NE.O)  GO  TO  10 

10320  FMd-l»J)=FM(I-l»J)/DB 

10330  FM ( I r  J ) "FM (I » J ) /DB 

10340  FM( 1-1 » J)=10.**FM( I-l» J)-l. 

10350  FHd,J)=10.*#FMd,J)-l. 

10360  10  IPHI=8*IB2160(K5-3)+( IB2160(K5-2) .AND.56)/8 

10370  PHI ( 1-1 , J) =2.*PI*FL0AT ( IPHI ) /512. 

10380  IPHI=8*IB2160(K5)-M  IB2160(K5-2) .AND.7) 

10390  PHI (I , J  >  «2 . *PI*FLQAT( IPHI ) /512 . 

10400  20  CONTINUE 

10410  IF((KPRINT.AND.98).EQ.O)  RETURN 

10420C 

10440C  FOR  K PRINT  2.32  OR  64,  DEFINE: 

10450C 

10460C  NANT 

10470C  FWMAXd  )  =  SUN  FN(I.J) 

10480C  J»1 

10490C 

10500C  AS  THE  SORT  OF  TIC  ESTIMATED  MAGNITUDE  OF  THE  MAXIMUM  FMPD(I). 

10510C  (FWMAXd  >*#2  IS  EXACTLY  THE  MAGNITUDE  OF  THE  MAXIMUM  FNPD(I) 

10320C  IF  THERE  IS  ONLY  ONE  SOURCE  AT  DOPPLER  I). 

10530C 

10540C  SET  FHMAX( I )=0  IF  FN'.»J).LT.l  FOR  ANY  ANTENNA  J. 

10550C  FHMAXX( IFF) "MAXIMUM  FHMAX(I)  OVER  ALL  DOPPLERS  I  OF  A  CASE, 

10560C  FOR  A  GIVEN  FREQUENCY  NUMBER  IFF. 

10570C  FUMAX,  FUMAXX  USED  IN  SUBROUTINE  FOU. 

10580C 

10590C  STORE  FHMAX(I),  FM(I,J),  PHI(I,J)  FOR  ALL  FREQUENCY  NUMBERS,  IF 
10600C  PROCESSING  FIRST  RECORD  OF  A  CASE;  IF  SECOND  RECORD,  STORE  ONLY 
10610C  THOSE  OF  THE  FREQUENCY  BEING  CALCULATED,  AND  MAIN  PROGRAM  CALLS  FOU 
10620C  TWICE,  ONCE  FOR  THE  NEGATIVE  DOPPLERS,  ONCE  FOR  THE  POSITIVE 
10630C  DOPPLERS.  OF  THE  GIVEN  FREQUENCY. 

10640C3"""""***"*"*""""®*" sssssssr sssssssssssssxssss 
10650C 

10660  IF(ISIGN.EQ.l)  FNMAXX(IFF)"0. 

10670  DO  50  I®1 ,NDOPP 

10680  FWMAX<I)=0 

10690  AMN"FM< 1,1) 

10700  DO  30  J "2, NANT 

10710  30  AMN"AMIN1(AMN,FM(I,J)) 

10720  IFIAMN.LT. 1.0)  GO  TO  50 

10730  DO  40  J*1»NANT 

10740  40  FMMAX( I )»FHMAX< I )+FM( I , J ) 

10750  50  FHMAXX ( IFF ) "AMAX1 ( FW1AXX (IFF ) , FWMAX ( I ) ) 

10760C 

10770  IFUS1GN.EQ.2)  GO  TO  60 

10780  IFdFF.EQ.  I  BEGIN)  REWIND  90 

10790  WRITE  (90)  (FWMAXd ) , I»1 ,NDOPP) , 

10800+  <(FM(I,J>,PHId,J),I"l,NDOPP),J"l,NANT) 
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10810  RETURN 

10820  60  REMIND  91 

10830  WRITE  (91)  <FWHAX<I) ,1*1 ,ND0PP) , 

10840+  ((FH(I,J),PHI(I,J>,I31,ND0PP),J31,NANT) 

10850  RETURN 

10860  END 

10870C 

10880C 

10890C 

10900C 

10910C 

10920C 

10930C 

10940C 

10950C 

10960  SUBROUTINE  MAPSEQ 

10970C 

. . . . . . . 

10990C  READS  NAPDATA  (IY. IX.FWPD.DOPP)  FROM  TAPE50  AND  PUTS  THE  FHPD'S  AND 
11000C  DOPPLERS  WANTED  (ACCORDING  TO  THE  CHOICES  INDICATED  AT  THE  BEGINNING 
11010C  OF  THE  RUN)  INTO  ARRAYS  NAXFWPD  AND  I MAX  FOR  PRINTING  SINGLE  SKY  MAPS 
11020C  OR  TIME-SEQUENCE  SKY  MAPS 

11030C33 3333 3333333333333333333S3333333*3333*33*3333333333B33333a333333S3 3333 

11040C 

11050  DIMENSION  HAPOAT(4.80),NPOT(S2),H1(64),HZ(64),KOUNT(41,41) 

11060  COMMON  IB2160(2160) , JSEQ(7) ,RJX(7,6) ,RJY(7,6) 

1 1070+  . 19216(216) . IB216T(216) ,NANTN0(7> »MAXFMPD<41 ,41 ) , IMAX(41 ,41 ) 

11080+  ,FMPD(41,41) ,PHI(64,7) ,FMMAX(64) ,FM(64,7) .PI .RADIAN, KPRINT 

11090+  ,FREG(6) ,RANG(6) ,IGAIN(6) ,FMMAXX(6) 

11100C 

11110  INTEGER  SHIFT 

11120C 

11130  DATA  Ml/"  1","  2","  3","  4",*  5"."  6","  7","  9","  9", "10", 

11140+  "11", "12", "13", "14", "15", "16", "17". "18", "19", "20", "21", "22". 

11150+  "23" » "24" , "25" . "26" , "27" , "28" , "29" , "30" , "31 " , "32" , “33" , "34" , 

1 1 160+  "35" , "36" » “37" . "38" , "39" , "40" . "41 " , "42" , "43" , "44" , "45" , "46" , 

11170+  "47" , "48" , "49" . "50" , "51 " , "52" . "53" , "54" , "55" , "56" , "57" , "59" , 

11180+  "59", "60", "61 "."62", "63", "64"/ 

11190  DATA  M2/"  A","  8","  C","  D","  E“,"  F","  G","  H","  I","  J", 

11200+  "  K","  L","  M","  N","  0","  P","  Q","  R","  S","  T","  U",“  V". 

11210+  "  W","  X","  Y"»*  Z" , "AA" , "B8" , "CC" , "DD" , "EE" , "FF" , "BG" , "HH" , 

11220+  "II","JJ","KK","LL","MM","NN","00","PP","QG","RR","SS","TT", 

11230+  "UU","W","HM"."XX","YY","ZZ*,"A+"r"B+","C+","D+","E+","F+", 

11240+  "G+" , "H+" , "I+" , " J+" , "K+" . "L+*/ 

11250  DATA  KBLANK1/1H  /.KBLANK2/2H  / 

11260C 

ll270C3333*3B*333333333»33a33«33a33SB3333333B33B3»B*3333333333333B3*33333333 
11280C  INPUTS  REQUIRED.*  (ALL  "QUOTED"  PARAMETERS  ARE  TO  BE  INPUTTED 
11290C  WITHOUT  QUOTES) 

11300C  —TIME  (E.G. "121832")  OF  THE  FIRST  CASE  WANTED 
11310C  OR  "0"  (ZERO)  TO  START  AT  THE  BEGINNING  OF  TAPE50 
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11320C  —FREQUENCY  NUMBER  (ONLY  ONE  FREQ.  NO.  CAN  BE  PROCESSED  AT  A  TIME) 
11330C  — WHETHER  WANT  "NEG"*  "POS",  OR  "BOTH*  DOPPLERS 
11340C  — "FMPD"  IF  WANT  A  SINGLE  CASE  ON  EACH  MAP*  OR  "TIME"  IF  HANT 
11330C  SEVERAL  SUCCESSIVE  CASES  (TIME  SEQUENCE) 

11360C  —THE  MINIMUM  FWPD  (IN  DB)  OF  THE  SOURCES  TO  BE  INCLUDED  IN  THE 
11370C  map: 

11380C  —"0"  (ZERO)  IF  HANT  ONLY  THE  MAX  FHPD  OF  EACH  RECORD 

11390C  —POSITIVE  NO.  (E.G."30")  IF  HANT  THE  SAME  MINIMUM  FOR  ALL  RECORDS 
11400C  — NEG.  NO.  IF  HANT  THE  MINIMUM  FOR  EACH  RECORD  TO  BE  A  GIVEN 

114 IOC  NUMBER  OF  DB  BELOM  THE  MAX  OF  THAT  RECORD:  E.G.  IF  INPUT  "-3"* 

11420C  MINIMUM  OF  EACH  RECORD  IS  3  DB  BELOU  THE  MAX 

1 1 430C ==========================s===============*================2========= 

11440C 

11450  PRINT**"  START  TIME?" 

11460  PRINT**"  (OR  0  (ZERO)  TO  START  AT  THE  BEGINNING)" 

11470  READ** ITIME 

11480  PRINT*,"  FREQUENCY  NUMBER?" 

11490  READ*,IFREQ 

11500  PRINT**"  NEG*  POS,  OR  BOTH  DOPPLERS?" 

11510  READ  10* ISIGN 

11520  10  F0RMAT(A4) 

11530  PRINT**"  FHPD  OR  TIME  SEQUENCE?" 

11540  READ  10, IFUPD 

11550  IF(ISIQN.EQ."NEG")ISIGN«1  *  IF(ISIGN.EQ."P0S")ISIGN=2 

115B0  IF ( ISIGN. EQ. "BOTH" ) ISIGN=3 

11570  PRINT*,"  MINIMUM  FHPD?" 

11580  PRINT*,"  (POS.  NO.:  CONSTANT  IDBHIN)" 

11590  PRINT*,"  (0:  IDBMIN>IDBMAX)" 

11600  PRINT*,"  (NEG.  NO.:  AMOUNT  BY  HHICH  IDBMIN  IS  L.T.  IDBMAX)" 

11610  READ«,MNN 

11620C 

11630C 

1  1640C*® ************ ****** ****** ******** *sss***®***®®**®sssssa***s*******s* 

11650C  AT  BEGINNING  OF  A  RUN  (NRUN*0)  CHECK  THE  TIME  UNTIL  FIND  FIRST 
11660C  CASE  UANTED*  UNLESS  ITIME  ("START  TIME")  IS  ZERO. 

11G70C  FOR  EACH  RECORD*  SKIP  THE  RECORD  IF  THAT  FREQ.  NO.  IS  NOT  HANTED, 
11680C  OR  IF  THAT  SIGN  ("1"  FOR  NEG  DOPPLERS*  "2"  FOR  POSITIVE)  IS 
11690C  NOT  HANTED. 

11700C  KR£C*i:  FIRST  RECORD  OF  A  GIVEN  SEQUENCE  (OR  GIVEN  MAP). 

1  niOC1*”2””* . . . . . . . . 

11720C 

11730  KREC*1 

11740  NRUN'O 

11750  20  DO  30  1*1.52 

11760  30  MPDT ( I )*HPDT ( I ) . AND.O 

11770C 

11780  BUFFERIN(50*1 ) (MPDT(1 ) ,MPDT(52) ) 

11790  IF(UNIT(50))50*40*20 

11800  40  IF  (KREC.EQ.l)  STOP  *  GO  TO  360 

11810  50  IF(KR£C.EQ.l. AND. NRUN.EQ.O. AND. MPDT(3).N£. ITIME 

i 1820*  .AND. ITIME. NE.O)  GO  TO  20 
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11830  IF(IFREQ.NE.MPDT(9>>  GO  TO  20 

11840  JSIGN'l  %  IF(((MPDT(4>/2>#2>.EQ.HPDT(4)>  JSIGN=2 

11890  IF(ISIGN.NE.3.AND.JSIGN.NE.ISIGN>  GO  TO  20 

11860  NRUNB1 

11870C 

11880  IF(KREC.EQ.2)  GO  TO  70 

11S90C 

11900C== ==========  INITIALIZE;  PRINT  FIRST  PREFACE  OF  THIS  SEQUENCE  *== 

11S10C 

11920  IHR»HPDT(3)/10000  t  IHINBHPDT(3)/100-IHR*100 

11930  IS£C*HPDT(3)-IHR*10000-IMIN*100 

11940  I TOTS£C=LTOTSEC = IHR+3600+ INI N*GO+ 1 SEC 

119S0C 

11960  NFREQ*HPDT(9) 

11970  FREQ(NFREQ)=FLOAT(HPDT<10))/10. 

11980  SINZMAX=AMIN1( .707, (2997. 925/FREQ (NFREQ) ) ) 

11990  RANG  <  NFREQ ) =FLOAT ( NPDT (11)1/10. 

12000  IGAIN(NFREQ)=HPDT(12) 

12010C 

12020  NUMBER3- 1 

12030  I0VER*0 

12040  DO  240  IXa1.41 

12050  DO  240  IY=1.41 

12060  HAXFHPD( I Y ,  I X ) =KBLANK 1 

12070  IMAX(IY,IX)=KBLANKZ 

12080  240  K0UNT(IY»IX)=0 

12090C 

12100  HSIGN=*NEG*  %  IF( JSIGN.EQ.2)  MSIGNa"POS" 

12110  PRINT  250 

12120  250  F0RMAT(1H1,31X."SEQ  DOPP  VSTAT  DATE  TINE  RNTT  QNXZ  «, 

12130+  "FREQ. NO.  FREQ(KHZ)  RANGE (KH)  GAIN(DB)"> 

12140  PRINT  260.(NUmER+l)>NSIGNr(HPDT(I)>I=l>3),NPDT(6)rNPDT(7)r 

12150+  WREQ r FREQ ( NFREQ ) r RANG (NFREQ ) r IGA IN (NFREQ) 

12160  260  F0RNAT(22X. "BEGIN  AT.*  ",Zl,3X,A3f3X,I2,2X,I5.5,lX, 

12170+  I6.&.2(lXrI4.4),4XrIl,6XrF7.1r3XrF6.1r6XrI3> 

12180C 

12190  KREC=2 

12200  GO  TO  270 

12210C 

12220C=*==== =====**===*====“=*==**==*=*=========*========== »*========== 

12230C  DETERMINE  IF  END  OF  THE  SEQUENCE.* 

12240C  IF  TINE  LAPSE  SINCE  FIRST  PREFACE  IS  G.T.  5  NIN. *  OR  TINE  LAPSE 
12250C  BETWEEN  PREFACES  IS  G.T.  18  SEC.  (INDICATING  THE  TINE  SEQUENCE 
12260C  OF  CASES  IS  BROKEN).  GO  TO  360  TO  PRINT  THE  NAP. 

12270C  IF,  COMPARED  TO  THE  FIRST  PREFACE,  FREQ.  NO.  CHANGES,  OR  RANGE 
17.280C  DIFFERENCE  IS  G.T.  10  KM,  OR  FREQ.  DIFFERENCE  IS  G.T.  0.5  MHZ, 
12290C  PRINT  A  MESSAGE  AND  PRINT  THE  HAP. 

12300C  IF  GAIN  IS  DIFFERENT,  PRINT  A  MESSAGE  BUT  CONTINUE  READING  DATA. 
12310Ca=a=s=saBB=s=====ss=SSBSSS3SSS*as=sssa>sss=3=ssss=ss===ssss=ssss=s 
12320C 

17330  70  JHR=MPDT(3)/10000  *  JMINBMPDT(3)/100-JHR»100 
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12340  JS£C»MPDT(3)-JHR*10000-JMIN*100 

12330  JTOTSEC = JHR*3600+  JM I N*60+  JSEC 

12360  IF ( JTOTSEC. LT.LTOTSEC)  JTOTSEC = J T0TSEC+24+3600 

12370  IF( ( JTOTSEC-LTOTSEC) .GT . 18)  GO  TO  170 

12380  LTQTSEC* JTOTSEC 

12390  IF  ((JTOTSEC- 1  TOTSEO.GT.  300)  GO  TO  170 

12400  IF(MPDT(9).NE.NFR£G)  GO  TO  80 

12410  IF<<ABS((FL0AT(MPDT<10>)/10.)-FREG(NFRE8>>>.GT.500.)G0T0  100 

12420  IF( (ABS( ( FLOAT  (MPDTdl ) )/10. )-RANG(NFREQ) ) ) .GT. 10. )GOTO  120 

12430  IF(MPDT(12) .NE. IGAIN(NFREG) )G0  TO  140 

12440  GO  TO  270 

12430  80  PRINT*, “  DIFFERENT  FREQ.  NO.  ENCOUNTERED" 

12460  GO  TO  170 

12470  100  PRINT*,"  FREQ.  DIFFERENCE  G.T.  0.5  MHZ" 

12480  GO  TO  170 

12490  120  PRINT*,"  RANGE  DIFFERENCE  G.T.  10  KM* 

12500  GO  TO  170 

12510  140  PRINT  150, IGAIN(NFREQ) ,NPDT(12> 

12520  IGAIN(NFREQ)=HPDT(i2) 

12S30  150  FORMAT!"  NOTE  GAIN  CHANGE  FROM  ",I3,"  TO  ",I3> 

12540  GO  TO  270 

12550  170  BACKSPACE  50 

12560  GO  TO  360 

12570C 

12580C=====I======!:=======r========ia=========I================================= 

12590C  DETERMINE  PARAMETERS  OF  LATEST  PREFACE  FOR  PRINTING 
17800C 

12610C  UNPACK  IY, IX.FUPD.AND  DOPPLER  NO.  INTO  ARRAY  MAPDAT 
12630C 

12640  270  IST=MPDT(1 ) 

17650  MNUM'NUMBER  $  IF( ISIGN.LE.2)  MNUM*NUMBER+1 

12660  MSIGN="NEG"  $  IF( JSIGN.EQ.2)  MSIGN*"POS" 

12670  MDATE=MPDT(2) 

12680  MTIME-HPDT(3) 

17690  MRHSMPDT(6)  *  MQN=HPDT(7> 

12700  MFRQ=MPDT(9)  %  FRQ=FL0AT(MPDT(10) )/10 

12710  RNG*FLOAT(MPDT (11)) /10 

12720  IGN=MPDT(12> 

17730C 

12740  DO  280  NR0U*1,4 

12750  DO  280  NC0L=1,80 

12760  280  MAPDAT ( NROM , NCOL ) =0 

17770C 

17780  DO  290  IM«13,52 

17790  IBF=0 

12800  DO  290  IBYal,8 

12810  IMM*8*IM+IBY-104  ♦  IBG«3+3*((IBY+l-4*(IBY/5)>/2) 

17820  IBF*IBF+IBG  %  NC0L=(IMM+3)/4  *  NR0N»IMM-(4*(NC0L-1 ) ) 

12830  290  MAPDAT (NROW,NCOL)s (63+449* ( IBG/9) ) .AND.SHIFT(MPDT(IM) , IBF) 

12840C 
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12B50C*  3SSSSSSS  IDBMAX«MAX.  FW PD  OF  EACH  RECORD  (NEC  OR  POS  DOPPLERS)  ========== 

17R60C 

12870  IDBMAX*0 

12880  DO  300  NC0L=1,80 

12880  300  ID8MAX*MAX0<MAPDAT(3,NC0L) ,IDBMAX) 

12900  IF(HNN.GT.O)  ID8HIN-HNN 

17910  IF(MNN.LT.O)  IDBHIN=IDBMAX+HNN 

12920  IF(MNN.EG.O)  IDBMINSIDBHAX 

12930  IF( IDBHIN.LT. 3)  IDBHIN«3 

12940  IF( (ISIGN.EQ.3.AND. JSIGN.EQ. 1) .OR. ( ISIGN.LE.2) ) 

17950+  NUHBER«NUMBER+1 

17960C 

12970C 

1 290OC ==================*===============*======================================= 

12990C  SELECT  THE  CASES  WITH  FHPD  .GE.  IDBMIN. 

13000C 

13010C  PUT  THE  DOPPLER  NO.  INTO  ARRAY  I  MAX. 

13020C  IF  IFMPDt INPUTTED  AT  BEGINNING  OF  RUN)a"TIME“»PUT  A  TIME  SEQUENCE 
13030C  NO.  <0  TO  15)  INTO  ARRAY  HAXFMPD. 

13040C  IF  IFWPDa"FMPD*»  PUT  THE  FHPD  INTO  ARRAY  HAXFMPD. 

13050C 

13060C  IF  THE  SAME  COORDINATES  HAVE  MORE  THAN  ONE  FHPD.  KEEP  THE  FIRST  ONE 
13070C  IN  THE  HAP,  AND  PRINT  THE  INFORMATION  ABOUT  THE  EXTRA  ONES. 

13080C  (PRINTING  THIS  INFO  NOT  PRESENTLY  OPERATIVE!  ONLY  COUNTING 
130S0C  THE  NUMBER  OF  'OVERFLOWS*) 

1 3100C= = ===================*=*====*=*=*=*==*===================*=*============== 

131 IOC 

13120  DO  340  NC0Lrlf80 

13130  IF<HAPDAT(3,NC0L).LT. IDBMIN)  GO  TO  340 

13140  IY3HAPDAT( 1 iNCOL) 

13150  IX*HAPDAT(2»NC0L) 

13160  IF( IMAX< IY, IX) .NE.KBLANK2) 31 0,330 

13170  310  I0VER=IQVER+1 

131B0C 

13190CCC  K0UNT(IY,IX)«K0UNT(IY,IX)+1 

13200CCC  IYCa"M"  *  IF(IY.GT.21)  IYCa"E" 

13210CCC  IXCa*N"  ♦  IF(IX.GT.21)  IXCa"S" 

13220CCC  PRINT  320, NUMBER, KOUNTdY, IX), IABS(21-IY> ,IYC,IABS<21-IX> ,IXC, 

13230CCC+  ( ( (-1 )**JSIGN)*HAPDAT(4»NC0L) ) ,MAPDAT(3,NC0L) 

13240CCC  320  FORMAT! IX, Zl,a  OVERFLOW  ("12")  AT  <"I2,A1","I2.A1"K  D0PPLER"I4, 

13250CCC+  “  FHPD** 13"  DB") 

13260C 

13270  GO  TO  340 

13280  330  HAXFWPD( IY, IX) *NUMB£R 

13290  IF( IFWPD.EG."FHPD" )HAXFHPD( IY, IX)=(HAPDAT(3,NC0L>-3)/6 

13300  IMAX( IY, IX)*M1 (MAPDAT(4,NC0L) ) 

13310  IF( JSIGN.EQ. 2)  IMAX( IY, IX)=M2(MAPDAT(4,NC0L) ) 

13320  340  CONTINUE 

13330C 

13340  IF( IFMPD.E8. "TIME" )  GO  TO  350 

13350  IF(ISIGN.EQ.3.AND. JSIGN.EQ. 2. AND. NUMBER. EQ.O)  GO  TO  360 
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13360  IFdSIGN.LE. 2.  AND. NUMBER. EQ.O)  GO  TO  360 

13370C 

13380  350  IF(ISIGN.EQ.3.AND.JSIGN.EQ.2.AND.NUMBER.EQ.15>  GO  TO  360 

13390  IF<ISIGN.LE.2. AND. NUMBER. EQ. 15)  360.20 

13400C 

134l0Css========s=s=====  PRINT  LAST  PREFACE  OF  THIS  SEQUENCE  . . . 

13420C  AND  CALL  PRIN  TO  PRINT  THE  MAP 

13430C 

13440  360  PRINT  370.MNUM.MSIGN. 1ST .MDATE.MTIME.MRU. 

13450+  MQN.HFRG.FRQ.RNG. IGN 

13460  370  FORMAT ( 22X » "END  ATI  ",Z1,3X,A3,3X,I2,2X,I5.5,1X, 

13470+  I6.6.2(1X. 14) .4X.I1 . 6X.F7. 1 .3X.F6. 1 .6X. 13) 

13480  PRINT#,"  “.IOVER,"  OVERFLOH(S)" 

13490C 

13500  IF ( NUMBER. GE.O)  CALL  PRIN(IN,ISIGN,IFUPD,SINZMAX,NFREQ> 

13510C 

13520  KREC=1 

13530  GO  TO  20 

13540  END 

13S50C 
13560C 
13570C 
13580C 
13S90C 
13600C 

13610  SUBROUTINE  FOU( ISIGN.NDOPP.NANT , IFF . IBEGIN, IFOU) 

13620C 

13640C  CALCULATES  FOURIER  TRANSFORMS  FOR  SKY  MAP 
13650C  REQUIRED  INPUTS  ARE 

13660C  NDOPP  NO-OP  DOPPLERS  USED  IN  CALCULATIONS 

13670C  NANT  NO. OF  ANTENNAS  USED  IN  CALCULATION 

13680C  RJY  NANT  ARRAY  SCALED  Y  ANTENNA  COORDINATES 

13690C  RJX  NANT  ARRAY  SCALED  X  ANTENNA  COORDINATES 

13700C  PHI  NDOPP  X  NANT  ARRAY  OF  PHASES 

13710C  FM  NDOPP  X  NANT  ARRAY  OF  MAGNITUDES 

13720C  OUTPUTS  ARE 

13730C  MAXFHPD  41X41  ARRAY  SKYMAP  H/FHPDS 
13740C  IMAX  41X41  ARRAY  SKYMAP  W/DOPPLERS 

13760C 

13770  COMPLEX  FMEXP(4) ,EXPAK(41 ,41 ,3) »FSUM 

13780  DIMENSION  IXMAXI41 ) , IYMAX<41 ) ,FXHAX<41 > ,FYMAX(41 > 

13790  DIMENSION  LOGFHPDI 41, 41) 

13800  COMMON  192160(2160) , JSEG<7> ,RJX<7,6> ,RJY(7,S) 

13810+  ,IB216(216) , IB216T ( 216 ) ,NANTN0(7) ,MAXFUPD(41 ,41 > , IMAX(41 ,41 ) 

1 3820+  ,FHPD(41 ,41 > ,PHI (64,7) ,FHMAX(B4) ,FM(84,7) ,PI , RADIAN, KPRINT 
13830+  ,FREQ(6) ,RANG(6) , IGAIN(6) ,FHMAXX(6) 

13840C 
13850C 

13860  DO  10  IX*1 ,41 
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13870  DO  10  IY*1 r41 

13880  MAXFWPD(IYfIX)=0. 

13890  10  IMAX(IYrIX)=0 

13900C 

13920C  FWMAX(I)  DETERMINED  IN  SUBROUTINE  ANT. 

13930C  FWMAX ( I ) =0  IF  FM(I.J).LT.l  FOR  ANY  ANTENNA  J. 

13940C  FWMAXX*HAXIMUM  FUMAX(I)  OVER  ALL  I,  FOR  A  GIVEN  FREQUENCY. 
13950C  FWMIN=FHMAXX/10  (20  DB  BELOW  FWMAXX)  BUT  AT  LEAST  2  <6  DB) 


13980 

13990 

14000 

14010+ 

14020 

14030 

14040C 

14050 

14060 

14070+ 

14080 

14090C 

14100C 

141 IOC 

14120C 

14130C 

14140C 

14150C 

14160C 

14170C 

14180C 

14190C 


IF(IF0U.EQ.2)  GO  TO  20 

IF ( IFF. EG.  IBEGIN)  REWIND  90 

READ  (90)  (FWMAX(I ) » 1=1 fNDOPP) » 

( (FM( I fJ) fPHI (I fJ) f 1=1 fNDOPP) fJ=1 fNANT) 

FWMIN=AMAX1 ( (FWHAXX( IFF)/10. ) ,2. ) 

GO  TO  30 

20  REWIND  91 

READ  (91)  (FMMAX(I) >I=lrNDOPP) > 

( (FMd » J) rPHI( Ir J) i 1=1 fNDOPP) » J=1 rNANT) 

GO  TO  45 

::ss3::s:2s:=essss:sssssss:s2sxs:sss£s3::sssss::s::ss:s:s::ss: 

ARRAY  COORDINATES  IYfIX>1 . 41  CORRESPOND  TO  MAP 

COORDINATES  YIY,XIX=+20f . . . ,0, . . . f-20 


+yiy=west;  +xix=north 

AK=K-DOT-A  (SEE  SUBROUTINE  ANT). 

K=K(IY.IX)=WAVE  PROPAGATION  VECTOR  (SCANNING  VECTOR). 
A=A(J)=ANTENNA  POSITION  VECTOR?  A=0  FOR  ANTENNA  J=l. 
EXPAK=EXPONENTIAL(II*AK) ?  II=SQRT(-1) 


14220 

14230 

14240 

14250 

14260 

14270 

14280 

14290C 

143000 

14310C 

14320C 

14330C 

143400 

14350C 

14360 

14370C 


30  DO  40  IX=1 .41 
XIX=21-IX 
DO  40  IY=l f41 
YIY=21-IY 
DO  40  J=2fNANT 

AK=(RJY< J, IFF)«YIY+RJX( J  f IFF)*XIX) 

40  EXPAK(IY,IXfJ-1)*CMPLX(C0SINE(AK,SINE)fSINE) 

!223:2S223222222322222t2:2S222222r22222X22222222222:£2222222:22222221 

SKIP  DOPPLER  I  IF  FHHAXd )  .LT.FWMIN 
FMEXP(J)=FH<I,J)*EXP(II*PHI(IfJ)>;  II=SQRT(-1> 
AUTOCOR=AUTOCORR£LATION  TERM 

::2322222322r2323222X232£2:3222222222S222222222X2222222S228SE22B2233S: 


45  DO  170  1=1 fNDOPP 
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14380  IF(FHMAX( I > .LT.FMMIN)  GO  TO  170 

14390C 

14400  DO  50  J=1 rNANT 

14410  50  FMEXP( J)=CMPLX< (FM(I> J)*CQSINE(PHI(I > J) iSINE) ) r 

14420+  (FH( I i J)*SINE) ) 

14430C 

14440  AUT0C0R=0 

14450  00  60  J=1 »NANT 

14460  60  AUTOCQR3 AUTOCOR+FM ( I » J ) *FM ( 1 1 J  > 

14470C 

14490C  FOR  A  GIVEN  DOPPLER  (I>-  AT  COOROINATE6  < IY, IX) : 

14500C 

14510C  NANT 

14520C  FSUM3  SUN  FH(IrJ)  *  EXP(II*PHI(I,J)>  *  EXP(II*AK(IY,IX, J) ) 
14530C  J=1 

14540C  WHERE  II3SGRT<-1> 

14550C 

14560C  FWPD= ABS  ( FSUM )  ++2 

14570C  =(REAL(FSUM) ) -**2+ ( I  MAG  I  NARY  (FSUM) )**2 

14580C 

14590C  SUBTRACT  THE  CONSTANT  AUTO-CORRELATION  TERM  FROM  THE  FHPD 
14600C33 33333333333333333333333333333333333333333333333333333333333333 
14610C 

14820  DO  80  IX=1  »41 

14630  DO  80  IY=1 f 41 

14S40  FSUM=FMEXP(1) 

14650  DO  70  J32iNANT 

14660  70  FSUM=FSUM+FMEXP< J)«EXPAK( IYr IXr J-l) 

14S70  FHPDdY,  I X )  =REAL  ( FSUM )  **2+A  I  MAG  ( FSUM )  **2-AUT0C0R 

14680  80  CONTINUE 

14690C 

14710C  SEARCH  FOR  MAXIMA  AT  THIS  DOPPLER  I 
14720C 

14730C  SEARCH  FOR  MAXIMA  ALONG  EACH  HORIZONTAL  LINE  IXI 

14/40C  FYMAX(IX)*MAX  FHPD  OF  LINE  IX 

14750C  IYMAX(IX)  IS  ITS  IY  INDEX 

14760C  FYMAX(IX)3FHPD<IYMAX<IX),IX) 

14770C  SET  INDEX  IYMAX  TO  ZERO  IF  FYMAX  OF  LINE  IX  IS  NOT  GREATER 
14780C  THAN  FYMAX  OF  LINES  IX-1  AND  IX+1 

14790C3333333 33333 3333 ==a* a* 33 sasrsssssssss s 3333 ss sssss sssss s sssssssss 

14800C 

14810  DO  100  IX31 r 41 

14820  FYMAX(IX)=FHPD(lrIX)  %  IYMAX(IX)31 

14830  DO  90  IY=2i41 

14840  IF(FHPD( IY» IX) .LT.FYMAXI IX) )  GO  TO  90 

14850  FYf*AX(  IX)SFMPD(  IY?  IX) 

14860  lYMf  (IX)3IY 

14870  AO  CON  NUE 

14880  TFi..:.E8.1)  GO  TO  100 
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14890  IF1FYNAX! IX) .GT.FYMAX! IX-1 ) )  IYMAX(IX-l)a0 

14900  IF(FYMAX(IX) .LT.FYMAX(IX-1 ) )  IYMAX!IX)a0 

14910  100  CONTINUE 

14920C 

14940C  SEARCH  FOR  MAXIMA  ALONG  EACH  VERTICAL  LINE  IY: 

14950C  FXMAX! IY)=MAX  FHPD  OF  LINE  IY 

14960C  IXMAX(IY)  IS  ITS  IX  INDEX 

14970C  FXMAX (IY)aFNPD(IY. IXMAX! IY) ) 

14980C  SET  INDEX  IXMAX  TO  ZERO  IF  FXMAX  OF  COLUMN  IY  IS  NOT 
14990C  GREATER  THAN  FXMAX  OF  COLUMNS  IY-1  AND  IY+1 
15000C 

isoioc  determine: 

15020C  MAX=MAXIMUM  LOGFUPD  OF  THE  ARRAY  FOR  A  GIVEN  DOPPLER  I 

15040C 

15050C 

15060  DO  120  IY®1 .41 

15070  FXHAX(IY)=FMPD(IY,1)  ♦  IXMAX(IY)=1 

15080  DO  110  IX-2,41 

15090  IF(FHPD(IY,IX).LT.FXMAX(IY)>  GO  TO  110 

15100  FXMAXdY)aFNPD(IY,IX) 

15110  IXMAX! IY)aIX 

15120  110  CONTINUE 

15130  IF! IY.EQ.l )  GO  TO  120 

15140  IF!FXMAX( IY) ,GT. FXMAX! I Y— 1 ) )  IXMAX! IY-1 >a0 

15150  IFIFXMAX! IY) ,LT .FXMAX! IY-1 ) )  IXMAX!IY)=0 

15160  120  CONTINUE 

15170C 

15180  BHAXaO 

15190  DO  130  IY-1. 41 

15200  IF! I)fl1AX!IY).E8.0)  GO  TO  130 

15210  IF! IYMAX(IXHAX(IY) ) .NE. IY)  GO  TO  130 

15220  BMAX=AMAXl!BMAXr FXMAX! IY) > 

15230  130  CONTINUE 

15240  BHAX2=BMAX/2 . 

15250C 

152G0CBBaBaaBBaaaBBBBaBBaBBBBBaBaBBBBaBBBaaBBaaaBsaaaBBaaaBBaaBBaBBBaaBBaaa 
15270C  DETERMINE  MAXFMPD:  ARRAY  OF  FNPD'S  TO  BE  PRINTED  ON  THE  SKYMAP I 
15/90C 

15290C  FOR  A  GIVEN  DOPPLER.  SKIP  FNPD'S  LESS  THAN  OR  EQUAL  TO  1/2  THE 
15300C  MAX  FHPD  FOR  THAT  DOPPLER  (TO  SUPPRESS  MEAK  SIDELOBESJ  STRONG 
15310C  SIDELOBES  ARE  SUPPRESSED  BY  CHOICE  OF  MAX  ZENITH  ANGLE.  AS 
15320C  DETERMINED  IN  SUBROUTINE  ANT) 

15330C 

15340C  IF  MULTIPLE  SOURCES  AT  ONE  LOCATION.  KEEP  THE  DOPPLER  MITH 
15350C  THE  MAXIMUM  INTEGER  FHPD.  (X?  KEEP  THE  LAST  ONE  IF  THO  HAVE  THE  SAME 
15360C  INTEGER  VALUE 

15370CBBaBBaaBaBBaaBBBBaaBaBaBBBaaaaBaBBBaBBaBaaBBBaBBaBBBBBaaaaBBBaaaaBBaB 

15380C 

15390  DO  140  IY*1.41 
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15400  IFdXHAXdYl.EQ.O)  GO  TO  140 

15410  IFdYHAXdXHAXdY>).NE.IY>  GO  TO  140 

15420  IF(FXMAXdY) .LE.BMAX2)  GO  TO  140 

15430  IF(MAXFWPD( IYr IXMAX( IY) ) ,GT. ( IFIX(FXMAX( IY) ) ) )  GO  TO  140 

15440  HAXFWPD( IY» IXHAX( IY) )=IFIX(FXMAX( IY) ) 

15450  IMAX< IYf IXMAX< IY) )  =  I 

15460  140  CONTINUE 

15470C 

15480  IF( (KPRINT.AND.32) .EG.O)GO  TO  170 

15490  IFPRINT=0 

15500  DO  150  IXX=1 » 41 

15510  DO  150  IYY=1,41 

1 5520  FWPD d  YY , I XX ) = AMAX 1 d . . FWPD  d  Y Y . I XX  > ) 

15330  L0GFWPDdYY,IXX)=IFIX(10.*AL0G10{FMPD(IYY,IXX))) 

15540  IF(LOGFWPDdYY'IXX).LT.l)  GO  TO  150 

15550  IFPRINT=1 

15560  150  CONTINUE 

15570  IF( IFPRINT.NE. 1 )  GO  TO  170 

15580  PRINT  160>  I » ( ( (LOGFHPD( IYY» IXX) t IYY=1 »41 ) r IXXi 

15390+  IYMAX(IXX)),IXX=1.41),(IYY'IYY=l'41),dXNAXdYY),IYY=l'41) 

15600  160  F0RMAT<*1  D0PPLER=*'I3/////'41(41I3'3XrI2'lX,I2/) , 

15H10+  T125,*IX.IYMAX*/,41I3'T125»*IY*/'41I3'T125.*IXHAX*'17(/)) 

15620  170  CONTINUE 

15630C 

15650C  CONVERT  FINAL  NAP  TO  DB  VALUES 
15670C 

15680  IF(KPRINT.EG.32)  RETURN 

15690  DO  180  IX=1 . 41 

15700  DO  180  IY=1 '41 

15710  HAXFMPD d  Y . I X ) =MAXO  d , MAXFMPD d  Y ,  I X  >  > 

15720  180  HAXFWPDl IY» IX) =IFIX< 10. *AL0G10( FLOAT (MAXFMPDl IY> IX) ) ) > 

15730C 

15740  RETURN 

15750  END 

15/60C 

15/70C 

15780C 

15790C 

15800  FUNCTION  COSINE(ARG'SINE) 

15810C 

15830C  DETERNINE  COSINE=COS(ARG)  AND  SINE=SIN(ARG>  FRON  TABLE 
15840C  CALCULATED  AT  BEGINNING  OF  NAIN  PROGRAM 

15860C 

15H70  C0MM0N/PIE/NPI'N2PI'N3PI2'NPI2'TN0PI'PI2'PI512,CSN<257> 

1 5880  ARG=AHOD(ARG » TWOPI ) 

15890  IFIARG.LT. 0)  ARG=ARG+THOPI 

15900  KUADRNT=IFIX(ARG/PI2)+1 


" 
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jj 
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• 

1 

15910 

KARG=IFIX(ARG/PI512+.5) 

i 

15920 

GO  TO  (1,2,3,4)KUADRNT 

i 

15930 

1  C0SINE*CSN(KARG+1 )  4  SINE=CSN(NPI2-KARG+1 )  4  RETURN 

C\ 

15940 

2  C0SINE=-CSN(NPI-KARG+1)  4  SINE=CSN(KARG+1-NPI2>  4  RETURN 

*’ 

15950 

3  C0SINE=-CSN(KARG+1-NPI )  »  SINE=-CSN<N3PI2-KARG+1 )  $  RETURN 

* 

i 

15960 

4  C0SINE=CSN(N2PI-KARG+1>  4  SINE=-CSN(KARG+1-N3PI2> 

p 

15970 

RETURN 

* 

15980 

END 

■: 

s* 

s 

15990C 

16000C 

16010C 

16020C 

16030 

SUBROUTINE  MAPDATA ( NFREG , MDTFLAG , IFOU , NMAP ) 

> 

ii 

1 

pi 

16040C 

K‘ 

16050C= 
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II 
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16060C  STORES  THE  FWPD'S,  DOPPLER  NUMBERS,  AND  THEIR  COORDINATES 

16070C  FOR  THE  SKYMAPS 

’! 

•* 

» 

■ 

16080C= 
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1G090C 

16100 

DIMENSION  MAPDAT(320) ,MPDT(52) 

i 

16110 

COMMON  182160(2160), JSEQ(7),RJX(7,6),RJY(7,6) 

• 

16120+ 

, 16216(216) , IB216K216) ,NANTN0<7> ,MAXFHPD(41 ,41 ) , IMAX(41 ,41 ) 

% 

16130+ 

,FHPD(41 ,41 ) , PHI (64, 7) »FHMAX(64) ,FM(64,7) ,PI , RADIAN, KPRINT 

M 

16140+ 

,FREG(6) ,RANG(6) , IGAIN(6) ,FMMAXX(6) 

% 

V' 

16150C 

16160 

INTEGER  SHIFT 

§ 

16170C 

16180C= 

. . assuMS!!ssassrstM«:sississsss*ssss»ssesssttSMi»«s!5!! 

] 

;? 

16190C  AT  THE  BEGINNING  OF  A  RUN,  READ  TAPE50  UNTIL  GET  TO  END  OF  DATA.  THUS 

■ 

16200C 

IF  TAPE50  ALREADY  CONTAINS  DATA,  THE  NEW  DATA  WILL  BE  APPENDED  TO  IT. 

j 

16210C 

IGNORE  LAST  RECORD  IF  MPDT(4>  IS  NOT  AN  EVEN  NUMBER  (SEE  EXPLANATION 

i 

> 

16220C 

OF  MPDT(4)  BELOW):  I.E.,  IF  LAST  RECORD  IS  NOT  THE  SECOND  RECORD 

16230C 

OF  A  CASE. 

■■ 

16240C* 

szss:ssrs::cssss5sss8s:ss:s:ss32Sss:ssss33BSSS&sss:s:::ss3ssssssss:sss:s: 

• 

16250C 

* 

i 

16;-60 

IF(MDTFLAG.EG.l)  GO  TO  30 

P 

16270 

10  8UFFERIN(50»1) (MPDT( 1) »MPDT(52) ) 

( 

• . 

16280 

IF(UNIT(50) )  10,20,10 

y 

16290 

20  MDTFLAG* 1 

* 

y 

16300 

IF(((MPDT(4)/2)*2).NE.MPDT(4))  BACKSPACE  50 

• 

.*■ 

16910C 

rfl 

16320C* 

3S3:S3S3S::33SSSS3SSSS3333333S8SS233S3S33«33S3333:S333SSS2S33S3SS:S3£3333 

• 

u 

E 

16330C  CODE  FIRST  32  PREFACE  CHARACTERS  INTO  ARRAY  MPDT: 

( 

16140C 

CHARACTERS)  1*  VSTAT  INTO  HPDT(l) 

$ 

1635 OC 

2-B*  DATE  2 

: 

/, 

16360C 

7-12*  TIME  3 

» 

16370C 

13-16:  NOT  used;  SEE  NOTE  4 

16380C 

17-20:  NOT  USED  5 

", 

16390C 

21-24=  RWTT  6 

! 

A 

S 

16400C 

25-28*  GNXZ  7 

-i 

16410C 

29-32:  NOT  USED  8 

A 

•i 

195 

A 

;] 

* 

i 

**  •/•/*•  **•/•/  .*4 
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16420C  NOTE:  CHARACTER  16  SET  TO  1  BY  PROGRAM  SKYHAP  FOR 
16<30C  FIRST  RECORD  OF  A  CASE;  SET  TO  2  FOR  SECOND  RECORD. 

16440C  ALSO:  MPDT(9)=NFREG=FREGUENCY  NUMBER 
16450C  MPDTdO)  =FR£G  (NFREG ) »  IN  100-HZ  EMITS 

16460C  MPDT (11) =RANG ( NFREG ) .  IN  100-METER  UNITS 

16470C  MPDTd2)=IGAIN(NFREQ>,  IN  DB 

16480C  NOTE  THAT  PREFACE  DOES  NOT  GET  PACKED. 

16490C 

16500C  PRINT  PREFACE. 

16510C===================== . .  .  .  . . . . . 

16520C 

16530  30  DO  40  1=1.52 

16540  40  MPDT ( I ) =MPDT ( I ) . AND . 0 

16550  DO  50  1=1.320 

16560  50  MAPDAT ( I ) =0 

16570C 

16580  IB2160(16)aIF0U 

16590  MPDT ( 1 ) =162160(1 ) 

16600C 

16610  11=100000 

16620  DO  60  1=2.6 

16630  11=11/10 

16640  60  MPDT(2)=MPDT(2)+IB2160(I)*II 

16650C 

16660  11=1000000 

16670  DO  70  1=7.12 

16660  11=11/10 

16690  70  MPDT(3)=MPDT(3)+IB2160< I)*II 

16700C 

16710  11=10000 

16/20  DO  80  1=13.16 

16/30  11=11/10  *  JJ=-4 

16740  DO  80  J=4>8 

16/50  JJ=JJ+4 

16760  80  MPDT<J)=MPDT(J)+IB2160<I+JJ>«II 

16770C 

16/80  MPDT(9)=NFREG 

16/90  MPDT d  0  > = IFI X  < FREQ ( NFREG ) * 10 . ) 

16800  MPDTdl  )  =  IFIX(RANG(NFREQ)*10. ) 

16810  MPDT(12)=IGAIN(NFREG) 

16820C 

16830  PRINT  90. (NMAP-(MPDT(4)-(MPDT(4)/2)*2) ) . 

16840+  <MPDT( I ) , 1=1 .9) , (FLOAT(MPDT( 10) )/10. ) . 

16850+  (FLOATfMPDTdl )  )/10. )  .MPDTU2) 

16860  90  F0RMATdXrI5.1X.I3.1X.I5.5rlX.I6.6.5dX.I4.4).3XrI3.2F8.1rI5) 

16870C 

16C90C  STORE  DATA  (IY.  IX.  FUPD.  DOPPLER  NO. )  INTO  MAPDAT. 
lSTOOC  PRINT  DATA. 

16910CSSSSXSSS**XSSBSS3SSSSS3SS3S=SSS=SSSSS&=SSSSS8SSSSSSSSS=SSSSSSCSSB3SSSSSSSS 

16920C 
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16930  I=-3 

16940  00  110  IX=1,41 

16950  DO  110  IY=1 »41 

16960  IF(MAXFNPD<IY,IX).LT.l)  GO  TO  110 

16970  1=1+4  *  IF(I.LT.320)  GO  TO  100 

16980  PRINT*. "WARNING.*  AMOUNT  OF  DATA  EXCEEDS  SIZE  OF  ARRAY 

16990+  "MAPDAT,  AT  (IY,IX)=!",IY.",",IX,"> ,  WITH  HAXFMPD="» 
17000+  MAXFNPD(IY,IX)»"  IMAX=".IMAX(IY,IX) 

17010  GO  TO  110 

17020  100  MAP0AT(I)=IY.AN0.63  *  MAPDAT! 1+1 >=IX.AND.63 

17030  MAPDAT { 1+2 ) =HAXFHPD( I Y. IX) .AND. 51 1 

17040  MAPDAT(I+3)=IMAX(IY, IX) .AND.511 

17050  110  CONTINUE 

17o6 0  NPR=NPRR=I  »  IF(I.GT.157)  NPR*157 

17070  IF(I.GT.317)  NPRR=317 

17080  NPR1=NPR+1  *  NPR2=NPR+2  *  NPR3=NPR+3 

17O90  NPRR1=NPRR+1  *  NPRR2=NPRR+2  %  NPRR3=NPRR+3 

17100C 

17110  PRINT  120. (MAPDAT! I ) .1=1 .NPR.4) 

17120  PRINT  130, (MAPDAT! I), 1=2. NPR1, 4) 

17130  PRINT  140. (NAPDAT(I) ,I=3»NPR2»4) 

17140  PRINT  150, (MAPDAT! I) , 1=4, NPR3.4) 

17150  120  FORMAT! IX,"  IY",40I3) 

17160  130  FORMAT! IX,"  IX", 4013) 

17170  140  FORMAT! IX, "FHPD", 4013) 

17180  150  FORMAT! IX, "DOPP", 4013) 

17190C 

17200  IF (MAPDAT! 161 ) .EG. 0)  GO  TO  160 

17210CCC  PRINT*,"  ■ 

17220  PRINT  120, (MAPDAT! I), 1=161 ,NPRR, 4) 

17230  PRINT  130, (MAPDAT! I), 1=162, NPRR1, 4) 

17240  PRINT  140, (MAPDAT! I) , I=163,NPRR2,4) 

17250  PRINT  150, (MAPDAT! I), 1=164, NPRR3, 4) 

17260C 

17280C  PACK  DATA  INTO  MPDT(13)  TO  (52). 

17290C  BUFFEROUT  PREFACE  AND  DATA. 

17310C 

17320  160  DO  170  IA=1,320 

1 7330  ILS»3+3*  <  < IA+1— 4*( < IA— 1 >/4) )/2) 

17340  IG*( ( IA-1 >/8)+13 

17350  170  MPDT(IG)=(SHIFT(MPDT!IG) , ILS) .OR. (MAPDAT! IA) ) ) 

17360C 

17370  180  BUFFEROUT (50,1) (MPDT ( 1 ) ,MPDT (52 > ) 

17380  IF(UNIT(50) >  190,190,180 

17390C 

17400  190  RETURN 

17410  END 

17420C 
17430C 
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17440C 

17450C 

17460C 

17470C 

17480C 

17490  SUBROUTINE  PRIN( IN, ISIGN, IFWPD,SINZHAX, IFF) 

17S00C 

17510C==================”=========================*=== 

17520C  TO  PRINT  SKY  HAP. 


17S30C  INPUTS  ME: 

17540C  HAXFMPD-41X41  ARRAY  OF  MAXIHUH  FHPD'S: 

17550C  IHAX=41X41  ARRAY  OF  DOPPLER  NO'S,  EACH  DOPPLER  I  AT  THE  COORDINATES 
17560C  ( IY, IX)  OF  FWPD(I.IY.IX). 

17570C  (SEE  SUBROUTINES  FOU  AND  NAPSEQ  FOR  HORE  DETAILS.) 

17*>90C 

17600  DIHENSION  IPR(94) , IPRS(94> 

17610  COHMON  182160(2160) ,JSES(7) ,RJX(7, 6) ,RJY(7, 6) 

17620+  , 18216(216) , IB216T(216) ,NANTN0(7) ,HAXFUPD(41 ,41 ) , IHAX(41 ,41 ) 

17630+  »FHPD(41 ,41 ) , PHI (64, 7) ,FUHAX(64) ,FH(64,7) ,PI , RADIAN, KPRINT 

17640+  ,FREQ(6) ,RANG(6) , IGAIN16) ,FMHAXX(6) 

17650C 

17660  DATA  KBLANK1/1H  /,KBLANK2/2H  / 

1/670C 

17680C===««=====5==5  IPR,IPRA1,IPRA2»  CONTAIN  FORMAT  STATEHENTS 
17690C 

17700  DATA  IPR/7H(1X,I2,.41*3HZ1,,6HI2,1X,,42*3HI2,,1H)/ 

17/10  DATA  IPRA1/3HA1 ,/, IPRAZ/3HA2,/ 

17720C 

17730C===*================>=*======  PRINT  HAP  LEGEND  =«==««==«=*======*===«= 

17740C 

17750  PRINT  150 

17/60C 

17770  IF(ISIGN.EG.3)  GO  TO  10 

17780  DPl=DP4="  "  $  DP3=*RS  *  %  DP2="NEG  DOPPLE" 

17790  IF( ISIGN. EG.Z)  DP2="P0S  DOPPLE" 

17800  GO  TO  20 

17810C 

17820  10  DP1*"NEG  DOPPI  “  %  DP2»"NUHERIC  " 

17830  DP3="P0S  DOPP:  "  *  DP4= "ALPHA 

1 7840C 

17850  20  IF(KPRINT.EG. 128.AND. IFHPD.EQ. “TIHE" )  GO  TO  30 

17860  PRINT#,"  FNPD  (6  DB  INCREMENTS) " 

17870  GO  TO  40 


17880C 

17890  30  PRINT*,"  TIHE  SEQUENCE* 

17900C 

17910  40  ZHAX-ASIN(SINZHAX) /RADIAN 

1 7920  SCALE5 ( . 707*RANG < IFF ) *S INZHAX ) /20 . 

17930  DFR=. 12254902  $  IF<IN.EQ.7)  DFR=DFR/2. 

17940  DF2*DFR/2.  *  IF(IN.EQ.5.0R.IN.EQ.8)  DF2*0. 
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17950  INVDFRaIFIXd./DFRJ 

17960  INVDF2=0 

17970  DP53"  " 

17990  IF1DF2.EQ.0.)  GO  TO  50 

17990  INVDF2aIFIXd./DF2) 

18000  DP5a*l  /" 

18010C 

18020  SO  PRINT  160.  ZHAX . DPI « DP2 . DP3 . DP4 . SCALE . DPS . I NVDF2 . 1 NVDFR 
18030C 

18040C3aa33aaaaa33a3a3aasaa33aa  PRINT  MAP  WITH  BORDERS  ============= 

18050C 

18060  PRINT  170 

18070  PRINT  190 

18080C 

18090  DO  140  IXa1.41 

18100  DO  GO  IY=1 .94 

18110  60  IPRSdY)=IPRdY) 

18120  DO  100  IYal»41 

18130  IF1KPRINT.EG.128)  GO  TO  80 

18140CCC  IFdX.EG.1.0R.IX.EG.41.0R. IY.EG.1.0R.IY.EG.4DGO  TO  70 

18150  IF(HAXFWPDdY.IX).NE.O.OR.IHAXdYrIX).NE.O)GO  TO  90 

18160C 

181 70Caaaa 33 aa*=a= ====aaa==«3==a===s=*ee==a*=*==*=«**a==a =========== i 

18180C  PUT  BLANKS  INTO  MAXFUPD.IMAX  AND  CHANGE  CORRESPONDING 
18190C  VARIABLE  FORMAT  (IPRS)  TO  HOLLERITH  FORMAT 

18?00Ca3a333a3333333a33333aa3a3aa3a3a333a3a3aa33a33aa3333a3aaaa33a3S: 

18210C 

18220  70  MAXFHPD( IY. IX) aKBLANKl  *  IHAXdY. IX)aKBLANK2 

18230  80  IF(MAXFHPD< IY. IX) .EQ.KBLANK1 ) IPRS( IY+1 )=IPRA1 

18X40  IPRS(IY+43)aIPRA2 

182S0  GO  TO  100 

18260C 

18270C33aa33333333a33333333a333aa3a33333a33a33a333333333aa33333333aa 

182B0C  EXPRESS  HAXFHPD  IN  6-DB  INCREMENTS 

l8290C33a3aaa3aa3aaa3333333333333aaa33a33333333333a333333a3aaaaa3333 

18300C 

18310  90  MAXFHPDf IY.  IX)a<NAXFHPDdY»  IX)-3)/6 

18320  100  CONTINUE 

18330C 

18340C3a333333a333aaa3a333a33333333aa3a33333a33333a33aa3a3aaa3333a3a 
18350C  FORMAT  FOR  BORDERS  AND  COMPASS  DIRECTIONS 

18370C 

18380  IF(IX.NE.l)  GO  TO  110 

18390  IPRS(86)a10HT22.*N0RTH  *  IPRS(87)=2H*. 

18400  IPRS(88>310HT87»*N0RTH  *  IPRS<89>a2H*> 

18410  110  IF(IX.LT.19.0R.IX.GT. 22)  GO  TO  120 

18420  IPRS(86)33HT3.  4  IPRS(88)a4HT45. 

18430  IPRS(90)a4HT47.  t  IPRS(92)a5HT130. 

18440  IF(IX.EQ.19)  IPRS(87)aIPRS(91)a4H*H*. 

18450  IF(IX.EG.i9)  IPRS<89)3IPRS(93)a4H*E*. 
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1B460 

18470 

18480 

18490 

18500 

18510 

18520 

18530 

18540 

181.50 

18S60C 

18570C; 

16580C 

18590C 

18600C 

18610 

18620+ 

16630C 

18640 

18850 

18860 

18670C 

18680C 

18690 

18700 

18710+ 

18720+ 

18730+ 

18/40+ 

18750 

18760+ 

18770+ 

18780 

18790 

18800+ 

18810+ 

18820+ 

18830 


IF( IX.EQ.20)  IPRS(87)=IPRS(91 )=4H*E+» 

IF < IX. EG. 20)  IPRS(89)=IPRS(93)=4H*A*» 

IF < IX. EQ .21)  IPRS(87)=IPRS(89)=IPRS(91 )=IPRS(93)=4H*S*, 
IF ( IX. EG. 22)  IPRS(87)=IPRS<89)=IPRS(91)=IPRS<93)=4H*T*, 
IPRS(94)=1H) 

120  IF(IX.NE.41)  GO  TO  130 

I PRS ( 86 > = 1 0HT22 , *SOUTH  %  IPRS(87)=2H*. 

I PRS ( 88 ) = 10HT87 r  +SOUTH  t  IPRS(89)=2H*) 

130  IXI * I ABS (21— IX > 

IF(IXI.LT.IO)  IPRS(l)=7H(I2rlXf 


:ssssssassssssssssssszsss=s: 

PRINT  LINE  IX 


PRINT  IPRS, 

IXI  r  (MAXFWPD!  IY, IX) ,IYS1 ,41 ) ,  IXI  ,  (IHAX(  IY, IX) »IY=1 ,41 )  »  IXI 

140  CONTINUE 
PRINT  180 
PRINT  190 


==================3=333333333==  FORMATS  ======================== 

150  FORMAT!//) 

160  FORMAT  (11X+MAXIMUM  ZENITH«*F5. 1*  DEG*,T7Z,A10,T82,A10, 
T9Z,A10,T102,A10/11X,*SCALE:*,F5.1,*  KM/DIVISION*, 
T56,*L0WEST  DOPP.  FRE8.=  «,T77,A3,T80, 12, 

T82,*  HZ  DOPP.-FREB.  RESOLUTION=  1  /*, 
T118,I2.T120,»  HZ«) 

170  FORMAT  <T4,*2*,T9,*1*,T14,*1*,T34,*1*,T39,*1*,T44,*2#/ 

3X,4<*0*,4X,#5*,4X),*0*,T48,*20*,T58,*15*,T68,*10*,T79, 

#5*.T89»*0#,T99,*5*,T10B,*10#,T118,*15*,T1Z8,#20*) 

180  F0RMAT(3X,41(1H! ) ,3X,41(2H  »)> 

190  FORMAT  <T4,#Z*.T9,*1*,T14,*1*,T19,*5*,T24,*0*,T29,*5*. 

T34,M»,T39,*1*,T44,*2*,T48,*Z0*,T58,*15*,T68,*10*,T79, 

*5*,T89,*0*,T99,#5*,T108,*10*,T118,*15#,T128,*20*/ 

T4, *0  5  0»,T34,*0  5  0*,8(/>> 

RETURN 
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00100  PROGRAM  DRIFVEL (INPUT , OUTPUT . TAPE48 , TAPE49 , TAPE50 , TAPEG9 , 

00110+  TAPE70 , TAPE71 , TAPE72 ) 

00120C 

00130C========================"=============================================”= 

00140C  CALCULATION  OF  AVERAGE  OR  MEDIAN  IONOSPHERIC- DR I FT  VELOCITY  VECTORS  AND 
00150C  SOURCE  POSITIONS  FROM  SKYMAP  DATA. 

00160C 

00170C  INPUT=TAPE50r  GENERATED  BY  SUBROUTINE  MAPDATA  OF  PROGRAM  SKYMAP. 

00180C  MAPDATA  OUTPUT  IS  STORED  UNDER  LABELS  "YDDDHHN" ,  WHERE  Y=T,U,...FOR 
00190C  YEARS  81,82,...!  DDD=DAY!  HH=STARTING  HOUR!  N= FREQUENCY  NUMBER. 

00200C  (E.G.:  U0261B1=YEAR  82, DAY  26fH0UR  18, FREQ.  NO.  1) 

00210C  SEVERAL  "SUB-FILES"  (EACH  SUB-FILE  CONTAINING  DATA  AT  ONE  FREQUENCY 
002-20C  NUMBER)  MAY  HAVE  BEEN  MERGED  INTO  ONE  FILE  AND  LABELLED  IN  CON- 

00230C  SEQUENCE  (E.G.  U02618  IF  ALL  FREQ.  NOS.  ARE  INCLUDED!  OR  U02618A 

00240C  AND  U02618B).  ALSO,  DATA  MAY  BE  ON  PHYSICAL  TAPES  LABELLED  MAPDAT. 
00250C  SEE  PROGRAM  MAPDATA  FOR  FURTHER  DETAILS. 

002S0C  (INPUT  FILE  MUST  BE  RENAMED  TAPE50. ) 

00270C 

00280C  ONE  SET  OF  BOTH  NEGATIVE-  AND  POSITIVE-DOPPLER  SOURCES  (2  RECORDS) 

00/90C  CALCULATED  BY  PROGRAM  SKYMAP  COMPRISES  ONE  CASE. 

00300C 

00310C  SEVERAL  VELOCITY  VECTORS  ARE  CALCULATED  FROM  THE  DATA  OF  EACH  CASE! 

00320C  THE  SOURCES  ARE  SORTED  IN  ORDER  OF  INCREASING  OR  DECREASING  DENSITY 
00330C  (I.E. »  FWPD!  SEE  PROGRAM  SKYMAP)  OR  DOPPLER  NUMBER  (AS  DETERMINED  BY 

00340C  "ISORT",  INPUTTED  AT  BEGINNING  OF  THE  RUN)!  THE  FIRST  VELOCITY 
00350C  CALCULATION  USES  THE  MINIMUM  NUMBER  OF  SOURCES  "MINSRC"  (ALSO 
00360C  INPUTTED  AT  BEGINNING),  AND  SUCCEEDING  CALCULATIONS  ADD  ONE  MORE 
00370C  SOURCE.  (SOME  SOURCES  ARE  SKIPPED!  SEE  BELOW.)  EACH  VELOCITY  IS 
00380C  CALCULATED  AS  VX,VY,...  AND  STORED  IN  ARRAYS  DBVX ( NIVEL ) ,DBVY( NIVEL > , 
00390C  ...  WHERE  NIVEL=NUMBER  OF  INDIVIDUAL  VELOCITY  CALCULATIONS. 

004 OOC 

004 IOC  AN  AVE  OR  MEDIAN  VELOCITY  IS  CALCULATED  FROM  THE  INDIVIDUAL  VELOCITIES 
00420C  FOR  EACH  CASE!  CVXfCVY, . . .=CASEVX(KASE> .CASEVY(KASE) , . . .  AND  IS 
00'.30C  REFERRED  TO  AS  CASE-NORM  VELOCITY. 

00440C 

00450C  AN  AVERAGE  NEG-DOPPLER  SOURCE  POSITION  IS  CALCULATED  FOR  EACH  CASE! 

004B0C  CNX fCNY , . . . =CASENX ( K ASE ) , CASENY (KASE) , . . . , 

00470C  AND  AN  AVERAGE  POS-DOPPLER  SOURCE  POSITION:  CPX,CPY, . . .=CASEPX(KASE> , 
00480C  CASEPYf KASE ),...!  THEY  ARE  REFERRED  TO  AS  CASE-NORM  POSITIONS. 

00490C 

00500C  AN  AVERAGE  OR  MEDIAN  FOR  GROUPS  OF  UP  TO  S  CASES  IS  CALCULATED: 

00510C  GVXfGVY , . . . =GRQUP-NORM  VELOCITIES,  AND 

00520C  GNX.GNY . GPX.GPY, . . . =GROUP-NORM  NEG-  AND  POS-DOPP  POSITIONS. 

00530C 

00540C  THE  DIGISONDE  TAKES  DRIFT  MEASUREMENTS  AT  3  OR  S  DIFFERENT  FREQUENCIES 
OCK-SOC  (AND  RANGES)  SIMULTANEOUSLY.  EACH  MEASUREMENT  IS  LABELLED  BY  A 
00560C  FREQUENCY  NUMBER  (1-3  OR  1-6).  AN  AVE  OR  MEDIAN  OF  THE  GROUP-NORM 

00570C  VELOCITIES  FROM  ALL  3  OR  6  SIMULTANEOUS  MEASUREMENTS  IS  CALCULATED 

00580C  AND  IS  REFERRED  TO  AS  ALL-FREQ  VELOCITY. 

OOt  '  )C 
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006 IOC 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
007J0 
00720+ 
00730+ 
00740 
00750 
00730 
00770C 
00780 
00790 
00800 
00810 
00820C 
00830 
00640 
00850 
00860 
00870C 
00880C= 
00890C 
00900C 
009 IOC 
OOEVOC 
00930C 
00940C 
00950C 
0096 OC 
00970C 
00980C 
00990C 
OlOOOC 
01010C 
01020C 
01030C 
01040C 
01050C 
01060C 
01070C 
01080C 
01090C 
01100C 
01 110C 


COMMON  HPDT  ( 52 ) , MAPDAT  (4,160) 

COMMON/ IGA/NN( 35) 

DIMENSION  XX( 160) >YY<160) >ZZ( 160) ,QN£(160) 

DIMENSION  DBVX(60) ,DBVY(60) ,DBVZ(60) ,DBESQ(60) 

DIMENSION  CASENX (16) ,CASENY( 16) , CASENZ (16), CASENS (16) 

DIMENSION  CASEPX(16) ,CASEPY(16) ,CASEPZ(16) ,CASEPS(16) 

DIMENSION  CASEVX(16) ,CASEVY( 16) ,CASEVZ( 16) ,CASEESB(16) ,CASESIG(16) 
DIMENSION  MTEMP(4) ,KPTEST( 15) ,KVH(3> ,KPT(3> , IDT(5) ,NTAPE(5) 


DIMENSION  IREAD(IO) 

DATA  NN/“1 ■ , “2" , "3* , "4“ , -5* , "6" , *7" , "8“ , "9" , “A" , "B* , *C" , “D" , "E" , 
"F* , "G" » “H“ » “ I" »" J" » "K" , “L" »"M* , "N" , "O* ,  “P“ , "Q* , "R" , "S" , "T“ , "U" , 
"V" , "M“ , “X* , “Y" , “Z“/ 

DATA  KPTEST/1, 2, 4, 8, 16, 24, 34, 36, 40, 48, 66, 68, 72, 80, 88/ 

DATA  KVM/"(22X,,',,,*HEIGHT:  **,«R6,A5)"/ 

DATA  IDT/“(6X,*STARTM , "ING  DATE  A" , HND  TIME:*,","A9,","A1)"/ 


REMIND  48 
REMIND  49 

REMIND  50  %  REMIND  69 

REMIND  70  $  REMIND  71  *  REMIND  72 

E0F50=0. 

IFLAG= IFHEAD=  I  FOWD=0 
DO  10  1=1,160 
10  0NE(I)=1. 

»»»«»«:»»»  INPUTS  REQUIRED  *=**=============*=== 

K  P  R  I  N  T  I 

1 “SUMMARY  OF  CASE-NORM  AND  GROUP-NORM  POSITION  AND  VELOCITY  VECTORS 

Z=LIST  OF  INDIVIDUAL  VELOCITY  CALCULATIONS 

4=LIST  OF  CASE-NORM  VELOCITIES 

8=LIST  OF  GROUP-NORM  VELOCITIES 

16=LIST  OF  ALL-FREQ  VELOCITIES 

(KPRINT  16  REQUIRES  SEVERAL  RUNS,  ONE  AT  EACH  FREQUENCY  NUMBER. 
AFTER  EACH  RUN,  RENAME  TAPE48=TAPE49  (SEE  SUBROUTINE  ALLFREQ). 
AFTER  LAST  RUN,  LIST  TAPE49  FOR  REQUIRED  OUTPUT. > 

32+(2,4,8  OR  16) “LIST  AND  POLAR  MAP. 

64+(2,4,8, 16) “GRAPH,  NO  LIST. 

FOR  KPRINT  2,  AZIM-SPEED  GRAPH  IS  MRITTEN  ON  TAPE69, 

RMS  ERROR  GRAPH  IS  MRITTEN  ON  TAPE70. 

FOR  KPRINT  4,8,  AZIM-SIGMA-SPEED  GRAPH  IS  MRITTEN  ON  TAPE69. 
FOR  KPRINT  16,  AZIM-SIGMA-SPEED  GRAPH  IS  MRITTEN  ON  TAPE71 . 

ALSO, IF  NO.  OF  FREQUENCIES  IS  .LE.  3,  THE  GROUP-NORM 
VELOCITIES  OF  ALL  3  FREG.  NOS.  AND  THE  ALL-FREQ 
VEL.  ARE  MRITTEN  ON  ONE  AZIM-SPEED  GRAPH  ON  TAPE72. 
NOTE:  --32  OR  64  CANNOT  BE  USED  ALONE  BUT  MUST  BE  ADDED  TO  2,4,8  OR  16 
--IF  MANT  BOTH  GROUP-NORM  AND  ALL-FREQ  OUTPUTS,  SET  KPRINT“8+16 
FOR  LIST  ONLY,  8+16+64  FOR  GRAPH.  IF  MANT  LIST  AND  POLAR 
MAP,  MUST  USE  SEPARATE  RUNS!  8+32  OR  16+32. 
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01120C  DflTE,TIH£,FREQUENCY  NUMBER! 

01I30C  OR,  TO  START  AT  BEGINNING  OF  INPUT  DATA,  INPUT  ZERO 
01140C  UNLESS  K PRINT  INCLUDES  16  AND/OR  647 

01 I50C  E.G.:  82026,185910,2;  OR!  0 

01160C  IF  IDATE'O,  ALL  RECORDS  FROM  1ST  TO  LAST  ARE  CALCULATED. 

01170C  IF  IDATE  NOT  ZERO,  STARTS  AT  FREO.  NO.,  DATE,  TIME  INPUTTED,  THEN 

01180C  CONTINUES  UNTIL  FREQ.  NO.  CHANGES. 

01i90C 

01200C  VEL-HEIGHT=  VELOCITY-CALCULATION  WEIGHT  FACTOR 

01210C  (USED  IN  LEAST  SQUARE  ERROR  CALCULATION  OF  INDIVIDUAL  VELOCITIES) 

01220C  1=L0G  DENSITY 

01230C  2=L0G  DENSITY*DOPPLER  NO. 

01240C  3=LINEAR  DENSITY 

01250C  4=LINEAR  DENS I TY*DQPPLER  NO. 

01260C  5'DOPPLER  NO. 

012/OC  6=N0  WEIGHTING 

012B0C 

01290C  SORTING  ORDER! 

01300C  “DECF" !  SOURCES  ARE  SORTED  IN  ORDER  OF  DECREASING  FWPD 
01310C  BEFORE  CALCULATING  THE  SEVERAL  INDIVIDUAL  VELOCITIES, 

01320C  THE  FIRST  CALCULATION  USING  "MINSRC"  SOURCES,  EACH 

01330C  SUCCEEDING  CALCULATION  ADDING  ONE  MORE  SOURCE. 

0I340C  "INCF"!  SOURCES  SORTED  IN  ORDER  OF  INCREASING  FWPD. 

01350C  "DECD“ !  SOURCES  SORTED  IN  ORDER  OF  DECREASING  DOPPLER  NUMBER. 

O13E.0C  “INCO-!  SOURCES  SORTED  IN  ORDER  OF  INCREASING  DOPPLER  NUMBER. 

01370C 

013B0C  MIN-SOURCES=  MINIMIW  NUMBER  OF  SOURCES  TO  BE  USED  FOR 
01390C  CALCULATING  A  VELOCITY  (LEAST  SQUARE  ERROR  CALCULATION) 

0I400C 

01410C  M  I  N  -  D  0  P  P  !  SOURCES  WITH  DOPPLER  NUMBER  LESS  THAN 
0) 420C  MIN-DOPP  ARE  BYPASSED  IN  VELOCITY  CALCULATION 
01430C 

01440C  MAX-DOPP!  SOURCES  WITH  DOPPLER  NUMBER  GREATER  THAN 
01450C  MAX-DOPP  ARE  BYPASSED  IN  VELOCITY  CALCULATION 
01460C 

01470C  MAX-ESfl  !  CALCULATIONS  WITH  ESQ  .GT.  MAX-ESQ  ARE  BY-PASSED 
01480C 

01490C  M  A  X  -  V  Z  !  CALCULATIONS  WITH  ABS(VZ)  .GT.MAX-VZ  ARE  BY-PASSED 
01500C 

01510C  NOTE!  FOR  MIN-DOPP, MAX-DOPP, MAX-ESQ, MAX-VZ,  ENTER  0  (ZERO)  IF  WANT  ALL 
01520C 

01530C  VEL-CHOICE! 

01540C  "MED"!  CASE-NORM  VELOCITY=MEDIAN  OF  THE  DBVX,...  OF  WE  CASE; 
01550C  GROUP-NORM  VEL 'MEDIAN  OF  THE  CASE-NORM  VELOCITIES; 

01560C  ALL-FREQ  VELOCITY 'MEDIAN  OF  THE  GROUP-NORM  VELOCITIES  FROM 

01'»70C  ALL  FREQUENCIES. 

01580C  "WMED"!  WEIGHTED  MEDIAN  INSTEAD  OF  MEDIAN,  EXCEPT  ALL-FREQ 
01590C  VELOC I TY 'NON- WE I GHTED  MEDIAN. 

oifiooc  "ave"ijk:  average  instead  of  median; 

OIGIOC  I,J,K=1  OR  2,  AND  INDICATE  WHETHER  CASE-NORM,  GROUP-NORM 

01620C  AND  ALL-FREQ  RESPECTIVELY  ARE  TO  BE  DETERMINED  BY 
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01630C  AVERAGING  ONCE  OR  TWICE  (IF  TWICE,  THE  SECOND  AVE'G 

01640C  BY-PASSES  VELOCITIES  OUTSIDE  THE  STANDARD  DEVIATION 

01650C  OF  THE  FIRST  AVERAGE) 

OICGOC  "QUOTED-  SYMBOLS  ARE  TO  BE  INPUTTED  AS  IS,  BUT  WITHOUT 
01670C  QUOTE  SIGNS  E.G.  AVE211 

01690C 

01700  PRINT  20 

01710  20  FORMAT ( *  K PRINT"/"  DATE » TIME » FREG-NO. “/"  VEL-WEIGHT,MIN-SOURCES“/ 

01720+  “  MIN-DOPP, MAX-DOPP, MAX-ESQ, MAX-VZ?”) 

01730C 

017*0  READ* , K  PR I NT , I DATE 

01750C 

01760  DO  30  K*1 , 15 

01770  30  IF(KPRINT.EQ.KPTEST(K) )  GO  TO  40 

01780  PRINT  110 

017^0  PRINT*,”  INVALID  K PRINT.”  *  STOP 

01600C 

01B10  40  IF( ( IDATE.NE.O) .OR. ( (KPRINT .AND.80) .EQ.O) )  GO  TO  SO 

01820  PRINT  110 

01830  PRINT*,”  FOR  THIS  KPRINT,  ENTER  DATE, START  TIME,  FREQ.  NO.” 

01840  STOP 

01850C 

01860  50  KD=0  *  KPT(1 )=KPT(2)=KPT(3)=*  * 

01870  IF( (KPRINT. AND. 1). EQ.O)  GO  TO  55 

01880  KD=1  »  KPT ( 1 ) =1 

01890  55  DO  60  KB=1,6 

01900  KC=2**KB 

01910  IF( (KPRINT. AND. KC). EQ.O)  GO  TO  60 

01920  KD=KD+1  *  KPT(KD)=KC 

01930  60  CONTINUE 

01940C 

01950  IF(IDATE.EQ.O)  GO  TO  70 

01960  READ*, ITIME, IFREQNO 

01970C 

01980  70  READ*, IWT ,MINSRC,MINDOPP,MAXDQPP,MAXESQ,MAXVZ 

01990  GO  TO  (71,72,73,74,75,76)  IWT 

02»ik>  71  MMTl=”  LOG  DE”  *MWT2=”NSITY”  *  GO  TO  80 

02010  72  MWT1="  LOG  DENS."  *HWT2=”*D0PP.  NO."  %  KVW(3)=“R9,A10)"  *  GO  TO  80 

02020  73  MWT1="  LINEAR  A"  4MWT2 AMPLITUDE"  *  KVW(3)="R8,AB>"  $  GO  TO  80 

02030  74  MWT1="LIN.  DENS."  *MWT2=”*DQPP.  NO.”  *  KVW(3)=”ZA10) "  t  GO  TO  80 

02040  75  MWT1=“  DOPPLER”  $MWT2="  NUMBER”  *  KVW(3)=“R7,A7>"  *  GO  TO  80 

02050  76  MWT1="  NO  WEI”  $MWT2="GHTING"  *  KVW(3)="R6,A6)" 

02060C 

02070  80  PRINT*,”  SORTING  ORDER?” 

02O80  READ  84,IS0RT 

02090  84  FORMAT (A4) 

0? !  ooc 

02i 10  IF( (KPRINT. AND. 29). EQ.O)  GO  TO  100 

02120  PRINT*, "VELOCITY  CHOICE?" 

02130  READ  85,ICV 
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02140 
02150 
02160 
02170 
02180 
02t90 
02200 
02210 
02220C 
022  10 
02240 
02250 
02260 
02/70 
02/80 
02290 
02900 
02310 
02120 
02.^30 
02340 
02350C 
02360C= 
02170C 
02380C 
02-1!  <0 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
024 80 
02490 
025<>0 
02510 
025/0 
02*'30 
02540 
02550 
02560 
02570 
021.80C 
02590 
02600 
02k IOC 
02620 
02630 
02640 


85  FORMAT (A6) 

IFdCV.EQ. "MED* .OR. ICO. EG. "WMED" )  GO  TO  95 
DE£0DE(6,90, ICV) ICVTEMP, ICV1 , ICV2, ICV3 
90  FORMAT! A3, 311) 

ICV= ICVTEMP 

95  IF(ICV.EG.*MED*>  ICV=1 
IFdCV.EQ.*  WMED")  ICV=2 
IFdCV.EQ.  *AVE*>  ICV=3 

100  IDT1="  ALL  DATA  “  $  IDT2="  ■ 

IFdDATE.EG.O)  GO  TO  105 

IDT1=IDATE  *  IDT2=ITIME  $  IDT(4)="I6,"  *  IDT(5)="1X,I6.6)" 

105  CONTINUE 

MINDO=MINDOPP  *  IF(MINDO.EQ.O)  MINDO="ALL* 

MAXDO*MAXDOPP  *  IF(MAXDO.EG.O)  MAXDQ=“ALL“ 

MAXES =MAXESG  *  IF(MAXES.EQ.O)  MAXES="ALL" 

MAXV=MAXVZ  ♦  IF(MAXV.EG.O)  MAXV=*ALL" 

IFdSORT.EG.“D£CF">  IS0RT=1 
IF ( I SORT. EG. ■ INCF" )  IS0RT=2 
IFdSORT.EG."DECD"  >  IS0RT=3 
IF(ISORT.EG.*INCD")  IS0RT=4 

»»  PRINT  INPUT  PARAMETERS  CHOSEN,  ON  OUTPUT  AND  ON  TAPES  TO  BE  USED 


kprint:  ",kpt 


PRINT  110 

110  FORMAT!////) 

PRINT*,* 

PRINT  IDT,IDT1,IDT2 
IF(IDATE.NE.O)  PRINT*,* 

PRINT  111 

111  F0RMAT1/13X, “INDIVIDUAL  VELOCITY  CALCULATION*) 
PRINT  KVNrMHTl ,MWT2 

GO  TO  (112,113,114,115)  ISORT 


FREQUENCY  NUMBER.'  " ,  IFREQNO 


112  PRINT*,* 

113  PRINT*," 

114  PRINT*,* 
GO  TO  116 

115  PRINT*,* 

116  PRINT*,* 
PRINT*,* 
PRINT*," 
PRINT*,* 
PRINT*," 


ORDER  OF  SORTED  SOURCES! 
ORDER  OF  SORTED  SOURCES! 
ORDER  OF  SORTED  SOURCES! 

ORDER  OF  SORTED  SOURCES! 
MINIMUM  NO.  OF  SOURCES! 
MINIMUM  DOPPLER  NUMBER! 
MAXIMUM  DOPPLER  NUMBER! 
MAXIMUM  LEAST  SQUARE  ERROR! 

MAXIMUM  ABS(VZ) ! 


DECREASING  FMPD"  % 
INCREASING  FMPD*  % 


GO  TO  116 
GO  TO  116 


DECREASING  ABS( DOPPLER  NUMBER) 

INCREASING  ABS( DOPPLER  NUMBER) 

"»MINSRC 

“ ,MINDO 

",MAXDO 

*, MAXES 

",MAXV 


DO  117  N=1 ,5 
117  NTAPE(N)*0 


IF( (KPRINT. AND. 80). EG. 0)  GO  TO  135 
IF ( (KPRINT. AND. 14) .NE.O)  NTAPE ( 1 ) s69 
IF (KPRINT. EG. 66)  NTAPE(2)»70 
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02R50  IF ( (KPRINT. AND. 16) .EQ.O)  GO  TO  125 

02660  NTAP£(3)=49 

02670  118  FORMAT (10A10) 

02680  119  R£AD(48, 118) ( I READ ( I ) *  1=1 r 10) 

02690  IF(E0F(48) .EQ.l)  GO  TO  121 

02/00  WRITE ( 49 r 118) ( I READ ( I ), 1=1 ,10) 

02/10  IF(IREAD(6).NE.“0UP-N0RM  V")  GO  TO  119 

02/20  DO  120  1=1.9 

02/30  120  BACKSPACE  49 

02/40  121  IF< (KPRINT. AND. 64) .EQ.O)  GO  TO  125 

02/50  NTAPE<4)=71 

02760  NTAP£(5)=72 

02770  122  READ(71 . 118) ( IREAD< I ). 1=1 .10) 

027H0  IF(E0F(71).EG.l)  GO  TO  125 

02 /HO  IF(IREAD(6).NE.*  GRAPH  OF  ")  GO  TO  122 

02800  123  READ (72. 118) ( I READ < I ). 1=1 .10) 

02810  IF(E0F(72).EQ.l)  GO  TO  125 

02870  IF(IREAD(6).NE.“QF  GROUP-N")  GO  TO  123 

02830  DO  124  1=1.9 

02840  BACKSPACE  71 

02850  124  BACKSPACE  72 

028f.!  C 

028  A-  125  DO  131  N=l,5 

02880  IF(NTAPE(N) .EG.O)  GO  TO  131 

02890  NTP=NTAPE(N) 

02H00  PRINT(NTP.llO) 

02H10  PRINT(NTP,*)"  KPRINT:  ".KPT 

02820  PRINT(NTP, IDT)IDT1 . IDT2 

02930  IF(IDATE.NE.O)  PRINT(NTP.»)"  FREQUENCY  NUMBER! 

02940+  IFREQNO 

02850  PRINT(NTP.lll) 

02860  PRINT<NTP,KVH)MWT1,MWTZ 

02970  GO  TO  <126.127,128.129)  ISORT 

02880  126  PRINT(NTP,#)"  ORDER  OF  SORTED  SOURCES!  DECREASING  FHPD"  4G0T0130 

02990  127  PRINT(NTP,*)"  ORDER  OF  SORTED  SOURCES!  INCREASING  FHPD"  4G0T0130 

03000  128  PRINT(NTP,*) *  ORDER  OF  SORTED  SOURCES!  DECREASING  DOPPLER  NUMBER 

03010  GO  TO  130 

03020  129  PRINT(NTP,*>"  ORDER  OF  SORTED  SOURCES!  INCREASING  DOPPLER  NUMBER 

03030  130  PRINT(NTP,*)"  MINIMUM  NO.  OF  SOURCES!  “.MINSRC 

03040  PRINT(NTP,*)"  MINIMUM  DOPPLER  NUMBER!  ".MINDO 

03050  PRINTINTP,*)"  MAXIMUM  DOPPLER  NUMBER!  ' , MAXDO 

03060  PRINT<NTP,*)«  MAXIMUM  LEAST  SQUARE  ERROR!  ".MAXES 

03070  PRINT(NTP,#)"  MAXIMUM  ABS<VZ)!  ",MAXV 

03080  131  CONTINUE 

03090C 

03)<»0  135  IF< (KPRINT. AND. 29). EQ.O)  GO  TO  235 

031  IOC 

03120  140  F0RMAT</20X, "CHOICE  OF  VELOCITIES") 

Obi 30  145  FORMAT ( 8X , "CASE-NORM  VELOCITIES!  MEDIAN  OF  THE  INDIVIDUAL", 

03140+  "  VELOCITIES") 

03150  150  FORMAT <7X, "GROUP-NORM  VELOCITIES!  MEDIAN  OF  THE  ", 
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03160+  "CASE-NORM  VELOCITIES") 

03170  1  55  FORMAT (9X, "ALL-FREQ  VELOCITIES.'  MEDIAN  OF  THE  GROUP-NORM  ", 

03180+  "VELOCITIES  FOR  ALL  FREQUENCY  NUMBERS") 

03) MO  160  FORMAT <8X, "CASE-NORM  VELOCITIES:  WEIGHTED  MEDIAN  OF  THE" 
03/00+  “  INDIVIDUAL  VELOCITIES") 

03/10  165  F0RMAT(7X, “GROUP-NORM  VELOCITIES:  WEIGHTED  MEDIAN  OF  THE  ", 

03//0+  “CASE-NORM  VELOCITIES") 

03/30  170  FORMATOX, “ALL-FREQ  VELOCITIES:  MEDIAN  OF  THE  GROUP-NORM  ", 

03240+  “VELOCITIES  FOR  ALL  FREQUENCY  NUMBERS") 

03250  175  FORMAT <8X, “CASE-NORM  VELOCITIES:  WEIGHTED  AVE  OF  INDIVIDUAL 

03/60+  "VELOCITIES  CALCULATED  “,A5) 

03/70  180  FORMAT <7X, “GROUP-NORM  VELOCITIES:  ", 

03/80+  “WEIGHTED  AVE  OF  THE  CASE-NORM  VELOCITIES  CALCULATED 

03290  185  FORMAT ( 9X , "ALL-FREQ  VELOCITIES:  AVERAGE  OF  THE  GROUP-NORM  “ 

03300+  "VELOCITIES  FOR  ALL  FREQUENCY  NUMBERS  CALCULATED  “,A5 

03310  PRINT  140 

033/0  GO  TO  (190,185,200)  ICV 

03330  190  PRINT  145 

03340  IF( (KPRINT.AND.25) .NE.O)  PRINT  150 

03350  IF( (KPRINT.AND. 16) .NE.O)  PRINT  155 

03360  GO  TO  205 

03)70  195  PRINT  160 

03380  IF( (KPRINT.AND. 25). NE.O)  PRINT  165 

033MO  IF( (KPRINT.AND. 16). NE.O)  PRINT  170 

03400  GO  TO  205 

03410  200  IF(ICVl.EQ.l)  ICVN1="0NCE"  $  IF(ICV1.EQ.2)  ICVN1=“TWICE" 

03420  IF(ICV2.EQ.l)  ICVN2="0NCE"  ♦  IF( ICM2.EQ.2)  ICVN2="TWICE“ 

03430  IF(ICV3.EQ.l)  ICVN3="0NCE"  $  IF( ICV3.EQ.2)  ICVN3="TWICE“ 

03440  PRINT  175.ICVN1 

03450  IF( (KPRINT.AND. 25). NE.O)  PRINT  180,ICVN2 

0341-0  IF( (KPRINT.AND. 16). NE.O)  PRINT  185,ICVN3 

03470  205  IF( (KPRINT.AND. 80). EQ.O)  GO  TO  235 

034 80C 

03480  DO  230  N=l,5 

03'" K)  IF(NTAPE(N) .EQ.O)  GO  TO  230 

03510  NTP*NTAPE(N) 

03' 20  PRINT(NTP, 140) 

03‘  K)  GO  TO  (210,215,220)  ICV 

03540  210  PRINT(NTP» 145) 

03  0  IF( (KPRINT.AND. 25). NE.O)  PRINT(NTP, 150) 

0'  60  IF( (KPRINT.AND. 16). NE.O)  PRINT(NTP, 155) 

0J570  GO  TO  225 

03'80  215  PRINT(NTP, 160) 

03  80  IF( (KPRINT.AND. 25). NE.O)  PRINT(NTP, 165) 

03*00  IF( (KPRINT.AND. 16). NE.O)  PRINT(NTP, 170) 

03*  10  GO  TO  225 

03620  220  PRINT (NTP, 175) ICVN1 

03630  IF ((KPRINT.AND. 25). NE.O)  PRINT(NTP,180)ICVN2 

03*40  IF( (KPRINT.AND. 16). NE.O)  PRINT(NTP, 185) ICVN3 

03* >50  225  PRINT(NTP,110) 

03*  ;  0  230  CONTINUE 
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03B70C 

03680  235  PRINT  110 


03690C 

03700  IF( (KPRINT.AND.64) .EQ.O)  GO  TO  330 

03/10C 

03720C==s==sss==sss==========  GRAPH  HEADING  ===*========*========== 

03730C 


03740  273  FORMAT! ///44X, "GRAPH  OF  INDIVIDUAL  VELOCITY  CALCULATIONS") 

03750  276  FORMAT! ///50X, “GRAPH  OF  CASE-NORM  VELOCITIES") 

03760  279  FORMAT ( ///50X, "GRAPH  OF  GROUP-NORM  VELOCITIES") 

037/0  282  F0RMAT(///51X. "GRAPH  OF  ALL-FREQ  VELOCITIES") 

03780  283  F0RMAT(///44X,"GRAPH  OF  GROUP-NORM  VELOCITIES  FOR  ALL  RANGES") 

03790  285  FORMAT! /IX, “DATE! ", 16/"  AST:  HOUR, MINUTE" ) 

03800  288  FORMAT! IX, “MINUTE  ROUNDED  OUT  TO  NEAREST  2.5  MINUTE"/ 

03810+  3X, "(00,02,05,07, ...=0,  2.5,  5,  7.5,...  MIN.)") 

038s.0  291  FORMAT ( IX,"#  =  NUMBER  OF  SOURCES") 

03830  294  FORMAT! IX, “#  =  NO.  OF  INDIVIDUAL  VELOCITIES/CASE") 

VJ840  297  FORMAT ( IX, “#  =  NO.  OF  CASE-NORM  VELOCITIES/GROUP") 

03850  300  FORMAT! IX,"#  =  NO.  OF  FREQ.  WITH  NON-ZERO  GROUP-NORM  VELOCITY") 

03860CCC  301  FORMAT! IX, "GROUP-NORM  AZIM  AND  VH  FOR  FREQ.  #1  =  1" 

03870CCC+  /IX, "GROUP-NORM  AZIM  AND  VH  FOR  FREQ.  #2  *  2" 

03880CCC+  /IX, “GROUP-NORM  AZIM  AND  VH  FOR  FREQ.  #3  =  4" 

03690CCC+  /IX,"  ALL-FREQ  AZIM  AND  VH  =  8") 

03900  301  FORMAT! IX, "GRAPH  SYMBOLS  REPRESENT  RANGE:" 

03810+  /3X,"RANG£(KM)=( 200+1 OX) ,  WHERE  X=0,1,2,...,9,A,B,...“) 

03920  302  FORMAT! “  FREQ  (100KHZ  UNITS)  =  (MAX  FREQ)  -  (MIN  FR£Q)“ 

03930+  /■  RANGE  (KM)  =  (MAX  RANGE)  -  (MIN  RANGE)") 

03940  303  FORMAT!"  FREQUENCY  IN  100KHZ  UNITS?  RANGE  IN  KM") 

03850  304  FORMAT! /IX, "SEQ",3X, "FREQ" ,5X,"#",35X, “AZIMUTH", 50X, "SPEED"/ 

03860+  4X, “AST" ,3X, "RANGE" ,36X, " < DEGREES/" , 40X, 

03970+  *VH=#  +VZ=+  -VZ=-  (M/S)"/ 

03980+  19X,I1 ,3(4X,I2) ,1X,9(3X, 13) ,3X, I1,3X,I2, 1X,5(2X, 13)/ 


03990+  17X, "NORTH" , 13! " . " ) , "EAST" , 14! " . " ) , “SOUTH" , 13! " . " ) , 

04000+  "WEST", 14!"."), "NORTH", ZX, 31 !"."),"X100“) 

04010  1304  FORMAT! /IX, "SEQ" ,3X, “FREQ" ,5X, "#" ,35X, "AZIMUTH" ,50X, "SPEED"/ 


4X , "AST" , 3X , "RANGE" , 36X , " ( DEGREES ) " , 40X , 

"VHa#  +VZ=+  -VZ=-  (M/S)"/ 

19X,I1 ,3(4X, 12) , 1X,9(3X, 13) ,3X,I1,3X, 12, 1X,5(2X, 13)/ 

17X, "NORTH", 13!"."), "EAST", 14!"."), "SOUTH", 13!“."), 

"WEST" , 14!" ."), "NORTH" ,2X, 31 (".") ) 

305  FORMAT! /49X,"SIGMA=+  !M/S)"/ 

19X, II ,8!4X, 12) , 1X,4!3X, 13) , 16X, "SPEED"/ 

IX , "SEQ" , 3X , "FREQ" , 5X , "#" , 30X , " AZ IMUTH=#  ( DEGREES ) " , 34X , 

"VH=#  +VZ»+  -VZ=-  (M/S)"/ 

4X, “AST" ,3X, “RANGE* ,4X, II ,3(4X, 12) , 1X,9!3X, 13) ,3X,I1,3X, 12, IX, 
5(2X,I3)/17X, "NORTH", 13!".“), "EAST", 14("."),"S0UTH“,13("."), 
"WEST", 14!"."), "NORTH", 2X, 31 <"."), "X100" ) 

04140  305  F0RMAT(/109X, "SPEED"/ 

04110+  lX,"SEQ"»3X,"FREG",5X,"#"»17X,"SIGMAs+  (M/S)",13X, "AZIMUTH", 

04160+  "=#  (DEGREES)", 21X,"VH=#  +VZ=+  -VZ=-  !M/S>"/ 

04170+  4X,"AST" ,3X, "RANGE" ,4X, II ,3(4X, 12) > 1X,9(3X, 13) ,3X, II ,3X, 12, IX, 


04020+ 

04030+ 

04040+ 

04050+ 

040S0+ 

04070CCC 

04080CCC+ 

04090CCC+ 

04100CCC+ 

04 1 10CCC+ 

04 1 70CCC+ 

04130CCC+ 
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04190+  5<2X, I3J/17X, “NORTH" , 13< " . " ) , "EAST" , 14< " . “ ) , “SOUTH" , 13( " . " > , 

04190+  “WEST", 14<“."), "NORTH", 2X, 31 <“."),"X100“> 

04200  308  F0RMAT(/1X,"SEQ“,3X,"FWPD",45X, "ROOT-MEAN-SQUARE  ERROR  ", 

04210+  “(M/S) "/4X, “AST" ,3X, “DOPP" > 

04220  311  FORMAT (/3X,"S£Q  AST“ ,45X, "ROOT-MEAN-SQUARE  ERROR  (M/S)"/) 

04230  314  FORMAT ( 15X, II ,4X, II ,18(3X, 12) , 1X,3(2X, I3)/15X,111(". " ) , "GT100" ) 

04240C 

04."50  IF(  (KPRINT.AND.2)  .EQ.O)  GO  TO  317 

04 i‘90  MRITE(69,273)  *WRITE<70,273>  *WRITE(69.285)IDATE  *WRITE(70,285)IDATE 

04270  WRITE(S9,291)  $  WRITE(69,303) 

04?80  MRITE<69, 304) <( 1-1 ), 1=1, 361, 30), < <1-1 >,1=1,301 ,50) 

04."90  HRITE(70,308)  %  HRITE(70,314)  ( ( 1-1 ) ,  1=1 , 111  ,5) 

04300C 

04310  317  IF( (KPRINT.AND.4) .EQ.O)  GO  TO  320 

043. ’0  WRITE(69,276)  4WR I TE ( 69 , 285 ) I DATE 

043.30  WRITE (69, 294)  »  URITE<69,303> 

04340CCC  WRITE(69, 305) (( 1-1 ), 1=1, 145, 12), (d-1 >,1=1,361, 30), 

04350CCC+  (d-1  >,1  =  1,301,50) 

04360  WRITE(69, 305)  (d-1  >,1  =  1,361,30),  (d-1  >,1=1,301,50) 

043/0CCC  WRITE(70,276)  *WRITE(70,285)IDATE 

04380CCC  WRITE(70,311 )  *  WRITE(70,314) ( d-1 ) , 1=1 , 111 ,5) 

04390C 

04400  320  IF( (KPRINT.AND.8) .EQ.O)  GO  TO  323 

04410  WRITE<69,279)  $WR I TE ( 69 , 285 ) I DATE 

04420  URITE(69, 288)  $  WRITE (69,297)  $  WRITE(69,303) 

04430CCC  WRITE(69,305) ( d-1 ) , 1=1 ,145,12) , ( d-1 ) , 1=1,361,30) , 

04440CCC+  (d-1),  1  =  1, 301, 50) 

04450  WRITE169, 305)  (d-1),  1  =  1, 361, 30),  (d-1),  1  =  1, 301, 50) 

04460CCC  WRITE(70,279)  $WR I TE ( 70 , 285 ) I DATE  *WRITE(70,288> 

04470CCC  WRITE(70,31 1 )  *  WRITE(70,314> ( d-1 ) , 1=1 ,111 ,5) 

04480C 

04490  323  IF( (KPRINT.AND. 16) .EQ.O)  GO  TO  330 

045')  HRITE(71 ,282) 

04510  WRITE (71, 285) I DATE 

04520  WRITE(7l ,288)  %  WRITE(71 ,300)  *  WRITE(7i ,302) 

04530CCC  WRITE(71, 305)  (d-1),  1  =  1, 145, 12),  (d-1),  1=1, 361, 30), 

04540CCC+  (d-1), 1  =  1, 301, 50) 

04550  WRITE (71 ,305) ( d-1)  ,1=1,361 ,30) , (d-1)  ,1=1 ,301 ,50) 

04560  WRITE<72,283>  »  WRITE(72,2B5) IDATE  ♦  WRITE(72,288> 

04570CCC  WRITE(72,311 )  *  WRITE(72,3t4) ( d-1 ) , 1=1 , 111 ,5) 

04590  WRITE (72, 300)  *  WRITE(72,301 )  *  WRITE(72,302) 

04590  WRITE(72, 1304)  (d-1  >,1=1,361,30),  (d-1  >,1=1,301,50) 

04600CG 

04610CG= ======================================================================== 

04620CG  THERE  ARE  3  PRINCIPAL  BLOCKS  IN  THE  MAIN  PROGRAM: 

04G;«  CG  i:  INDIVIDUAL-VELOCITY-CALCULATION  LOOP,  WHICH  IS  INSIDE  THE 
04640CG  Zl  CASE  LOOP,  WHICH  IS  INSIDE  THE 
04L50CG  3:  GROUP  LOOP. 

04660CG  THE  “COMMENT  INDICATORS"  (COLUMN  6)  IDENTIFY  THE  BLOCKS: 

04670CG  “CV"  FOR  INDIVIDUAL  VELOCITY  CALCULATIONS; 

04680CG  “CK"  FOR  CASE  CALCULATIONS; 
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04690CG  "CG“  FOR  GROUP  CALCULATIONS. 

04700CG  ALL-FREQ  CALCULATIONS  ARE  DONE  IN  SUBROUTINE  ALLFREQ. 
04710CG=========================  GROUP  LOOP  ==================== 

04720CG  INDEX  NGRP=1  TO  35  COUNTS  GROUPS  r 

04730CG  AND  NN=1 .2. . . . .9.A. . . . »Z  IDENTIFIES  GROUPS  ON  PRINTOUTS. 


04740CG============================================================== 

04750CG 

04760  330  NGVEL=NFVEL=0 

04770  DO  1420  NGRP=1,35 

04780  IGSEQ=NN(NGRP> 

047S0C 

04800  340  NFCNTOT =NFCPTOT =NK VEL =NG I VEL =0 

04810CG 

04820  DO  350  1=1.16 

04830  CASENX ( I ) =CASENY ( I ) =CASENZ ( I >  =CASENS ( I >  =0 

04840  CASEPX ( I ) =CASEPY ( I >  =CASEPZ ( I ) =CASEPS ( I ) =0 

04850  350  CASEVX ( I ) "CASEVY ( I > "CASEVZ < I ) =CASEESQ ( I ) =CASES I G ( I ) =0 

04860CG 

04870CK 

04880CK=*================= =======  CASE  LOOP  ================ 


04890CK  INDEX  KASE=1  TO  6  COUNTS  CASES  PER  GROUP. 

04900CK  (KASE  CAN  BE  INCREASED  FROM  1.6  TO  1.15  SINCE  HEXADECIMAL  DIGITS 
04910CK  (1  TO  F)  ARE  USED  TO  IDENTIFY  CASES  ON  PRINTOUTS.) 

0492 OCK 

04930CK  ARRAY  MPDT  CONTAINS  ONE  RECORD  FROM  TAPE  501 

04940CK  MPDT( 1 )=STATION  IDENTIFICATION 

04950CK  (2)=DATE 

04960CK  (3)=TIME 

04970CK  (6)=RHTT 

04980CK  (7)=QNXZ 

04990CK  (9)=FREQ.  NO. 

05000CK  ( 10) "FREQUENCY 

05010CK  (11) "RANGE 

05020CK  (12) =GAIN 

05030CK  (4) , (5) . (8)=PREFACE  PARAMETERS  NOT  USED  HERE 

05040CK  (13)  TO  (52) "PACKED  SKYMAP  DATA  (IY.IX.FMPD.DOPPLER  NO.— NEGATIVE 

05050CK  AND  POSITIVE  DOPPLERS  IN  SUCCESSIVE  RECORDS) 

05060CK 

05070CK  ARRAY  MAPDAT  CONTAINS  UNPACKED  SKYMAP  DATA  FOR  A  COMPLETE  CASE 
05080CK  (BOTH  NEGATIVE  AND  POSITIVE  DOPPLERS). 

05090CK==================== =================== ================================== 

05100CK 

05110  DO  1170  KASE= 1 .6 

05120  NC=NR=0 

05130  NICN=NFCN=NICP=NFCP=NICV=NFCV=0 

05140CK 

05150  IF < ( (KPRINT.AND.2) .NE.O) .AND. ( (KPRINT.AND.64) .EQ.O) )  PRINT*."  " 

051 SOCK 

05170  DO  360  NR0=1.4 

05180  DO  360  NCQ= 1.160 

05190  380  MAPDAT ( NRO . NCO ) =0 
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05200CK 

05210  370  DO  380  1=1 »52 

05220  380  MPDT ( I ) =MPDT ( I ) . AND . 0 

05230CK 

05,40CK=====BUFFERIN  SKYMAP  DATA  FROM  TAPE50 
05250CK 

05260  380  BUFFERIN(50,1)(MPDT(1),MPDT(52) ) 

05270  IF(UNIT(50) )  420,400,330 

05280C 

052900=====  IF  NOT  END  OF  TAPE50,  GO  TO  420 


05300C 

05310  400  E0F50=1. 

05320  IF(IFOUND.EQ.l)  GO  TO  405 

05330  PRINT*,"  NO  DATA  FOUND  TO  SATISFY  THE  INPUT  PARAMETERS." 

05340  PRINT*,"  "  t  PRINT*,"  “  $  STOP 

05 3500 

053600=====  IF  VELOCITIES  HAVE  BEEN  CALCULATED  FOR  AT  LEAST  ONE  CASE  IN 
05370C  THIS  GROUP,  EXIT  CASE  LOOP?  IF  NOT,  PRINT  INFO  ABOUT  WHERE 
05380C  OUTPUTS  ARE  TO  BE  FOUND,  THEN  STOP. 

05390C 

05400  405  IF(KASE.NE.l)  GO  TO  1175 

05410  PRINT  407 

054,0  407  FORMAT!///) 

05430  IFILASFREG.EQ.O.AND. (KPRINT.AND. 16) .NE.O)  PRINT  410 

05440  410  FORMAT!"  LIST  OF  GROUP-NORM  VELOCITIES  FOR  THE  FREQUENCY 

05450+  “NUMBER! S)  ALREADY  RUN  IS  ON  TAPE  49."/ 

05460+  “  PLEASE  RENAME  TAPE48=TAPE49,  TO  USE  THE  OUTPUT  ", 

05470+  "OF  THIS  RUN  (TAPE49)  AS  INPUT  (TAPE48)  OF  THE  NEXT  RUN."/ 

05400+  "  BE  SURE  THAT  FOR  THE  NEXT  RUN,  TAPE50  HAS  MAP  DATA", 

05490+  "  OF  A  DIFFERENT  FREQUENCY  NUMBER.") 

05500  IF(LASFREG. EG. 1. AND. (KPRINT.AND. 16). NE.O)  PRINT  415 

05510  415  FORMAT!"  LIST  OF  GROUP-NORN-VELOCITIES-FOR-ALL-" , 

05  . 20+  "FREQUENCY-NUMBERS  AND  OF  ALL-FREG- VELOC I TI ES  IS  ON  TAPE  49.") 

05530  IF! (KPRINT.AND. 64). EG. 0)  GO  TO  419 

05540  IF! (KPRINT.AND. 2). NE.O)  PRINT  416,NFREG 

05550  416  FORMAT!"  AZIM-SPEED  GRAPH  OF  INDIVIDUAL  VELOCITIES  FOR  FREQ.  NO. 

055-0+  lit"  IS  ON  TAPE69,  AND  RMS-ERROR  GRAPH  IS  ON  TAPE70.") 

05570  IF! (KPRINT.AND. 4). NE.O) 

05580+  PRINT*,"  GRAPH  OF  CASE-NORM  VELOCITIES  FOR  FREG.  NO.  ", 

05590+  NFREQ , "  IS  ON  TAPE69." 

05600  IF! (KPRINT.AND. 8). NE.O) 

05610+  PRINT*,"  GRAPH  OF  GROUP-NORM  VELOCITIES  FOR  FREG.  NO.  ", 

05620+  NFREQ,"  IS  ON  TAPE69." 

05630  IF! ( (KPRINT.AND. 16) .NE.O) .AND. (LASFREG.EG. 1 ) ) 

05640+  PRINT*,"  GRAPH  OF  ALL-FREG  VELOCITIES  IS  ON  TAPE  71." 

051.50  IF! ( (KPRINT.AND. 16) .NE.O) .AND. (LASFREG.EG. 1 ) .AND. (NUMFREG.LE.3) ) 

05660+  PRINT  414 

05670  414  FORMAT!"  GRAPH  OF  GROUP-NORM  VELOCITIES  FOR  ALL  ", 

05680+  "RANGES  IS  ON  TAPE  72.“) 

05690  IF! ( (KPRINT.AND. 16) .NE.O) .AND. (LASFREG.NE. 1 > .AND. (NUMFREG.GT.3) ) 

05700+  PRINT  417 
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n 

05710 

417 

FORMAT!"  IF  SAVING  RESULTS  TO  DO  NEXT  RUN  LATER,  SAVE  TAPE48" , 

y 

05 //•>*■ 

"  AND  TAPE71J  GET  BOTH  TAPES,  AS  HELL  AS  TAPE50=(MAP  DATA),", 

•m 

05730+ 

/"  FOR  THE  NEXT  RUN.") 

>: 

05740 

IF! ! (KPRINT. AND. 16) .NE.O) .AND. (LASFREQ.NE. 1 ) .AND. (NUMFREQ.LE.3) > 

£ 

05/50+ 

PRINT  418 

05760 

418 

FORMAT (“  IF  SAVING  RESULTS  TO  DO  NEXT  RUN  LATER,  SAVE  TAPES  48,", 

■ 

05770+ 

“  71,  AND  72?  GET  THE  3  TAPES,  AS  HELL  AS  TAPE50=(MAP  DATA),", 

05780+ 

/"  FOR  THE  NEXT  RUN.") 

>5 

05790 

419 

PRINT  407 

05800 

STOP 

05810CK 

05820CK= 

'CHECK  IF  WANT  THIS  SKYMAP  DATA 

k  ■ 

05830CK 

05840 

420 

IF(IDATE.EQ.O)  GO  TO  440 

S; 

05850 

IF(IFLAG.NE.O)  GO  TO  430 

y 

V 

05860 

IF(MPDT(9).NE.IFREQN0)  GO  TO  370 

,%* 

05870 

IF(MPDT(2) .NE. IDATE)  GO  TO  370 

V 

05880 

IF!MPDT(3) ,N£. ITIME)  GO  TO  370 

05890 

IFLAG=1 

05900CK 

// 

05810 

430 

IF(MPDT(9) .NE. IFREQNO)  GO  TO  400 

V. 

05920CK 

05930 

440 

ISIGN=MPDT(4) .AND. 3 

0S940  I FOUND =1 

05950CK 

05960CK===*=UNPACK  DATA 


IENDNEG= INDEX  OF  LAST  NEG-DOPP  SOURCE 
=NUNBER  OF  NEG-DOPP  SOURCES 
IENDPOS= INDEX  OF  LAST  POS-DOPP  SOURCE 
= TOTAL  NUMBER  OF  SOURCES 


05970CK 
05980CK 
05990CK 
06000CK 
0601 OCX 
06020 
06030 
06040 
06050 
06060CK 

06070CK=========S==S=  CHECK  FOR  END  OF  GROUP  ================ 

06080CK  IF  THIS  CASE  IS  NOT  THE  FIRST  ONE  IN  THE  GROUP ,  CHECK  IF  IT  SHOULD  BE  IN 
THIS  GROUP?  IF  NOT,  BACKSPACE  TAPE50  <2  RECORDS)  SO  THAT  IT  HILL  BE 
BUFFERED  IN  AGAIN  IN  NEXT  GROUP. 


CALL  UNPACK! ISIGNrNRrNC) 
IF ( ISIGN.EQ. 1 >  IENDNEG=NC 
IF! ISIGN.EG.2)  IENDPGS=NC 
IF! ISIGN.EQ. 1)  GO  TO  370 


06090CK 
06100CK 
06110CK 

06120CK  END  THE  GROUP  HITH  THE  PREVIOUS  CASE  (LAST  CASE  CALCULATED)  IF.’ 

TIME  LAPSE  SINCE  PREFACE  OF  FIRST  CASE  IN  THE  GROUP  IS  .GT.  5  MIN.,  OR 
TIME  LAPSE  SINCE  PREVIOUS  CASE  IS  .GT.  18  SEC.  (INDICATING  THE  TIME 
SEQUENCE  OF  CASES  IS  BROKEN); 

OR  IF,  COMPARED  TO  PREFACE  OF  FIRST  CASE,  FREQ.  NO.  CHANGES,  OR  RANGE 
DIFFERENCE  IS  .GT.  10  KM,  OR  FREQ.  DIFFERENCE  IS  .GT.  0.5  MHZ 
(FOR  THE  LAST  THREE  CONDITIONS,  ALSO  PRINT  A  MESSAGE?  EXCEPT, 

MESSAGE  IS  SUPPRESSED  FOR  CERTAIN  KPRINTS). 


06130CK 
06140CK 
06150CK 
06160CK 
06170CK 
061 SOCK 
06190CK 
06200CK 

0S210CK  OTHERWISE, 


CALCULATE  THE  LAST  CASE  BUFFERED  IN. 
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06220CK  (PRINT  MESSAGE  IF  GAIN  CHANGES. ) 

06230CK 

06240CK  KIYR,ETC.  REFER  TO  INITIAL  (FIRST)  CASE  OF  THE  GROUP. 

06250CK  KLYRiETC.  REFER  TO  LAST  CASE  BUFFERED  IN  (NOT  YET  CALCULATED). 

0B2S0CK  MYRfETC.  REFER  TO  CASE  BEING  CALCULATED. 

06270CK  KITIME, KLTIME, MTIME  ARE  HR-MIN-SEC  IN  SECONDS;  ADD  24  HOURS  TO  KLTIME 
06280CK  IF  INITIAL  AND  LAST  DAYS  ARE  DIFFERENT. 

06290CK  I N=DR I FT-MEASUREMENT  PROGRAM  NUMBER. 

06300CK  DF2=DOPPLER  FREQUENCY  (HZ)  OF  DOPPLER  NUMBER  D=l. 

06310CK  DFR=SPECTRAL  HIDTH(HZ) *DOPPLER-FREQ  RESOLUTION. 

06320CK  NFREG=FREQUENCY  NUMBER. 

06330CK  NUMFREQ=NUMBER  OF  FREQUENCIES. 

06340CK  FREQ  IN  100-HZ  UNITS,  CONVERTED  TO  KHZ. 

06350CK  RANGE  IN  100-METER  UNITS,  CONVERTED  TO  KM. 

06360CK  ZMAX=MAXIMUM  ZENITH  ANGLE  FOR  SKYMAP. 

06370CK  SCALE=METERS-PER-D I V I SION  SCALE  IN  SKYMAP. 

06380CK= ================================= ==================================== 

06390CK 

06400  IF(KASE.NE.l)  GO  TO  460 

06410  KIYR=MPDT(2)/1000  *  KIDY=M0D(MPDT(2) , (KIYR*1000) ) 

06420  K IHR=MPDT (3 ) / 1 0000  *  KIMIN=MPDT(3)/100-KIHR*100 

06430  K ISEC=MPDT ( 3 ) -K IHR* 10000-K IM IN* 1 00 

06440  KITIME=K IHR*3600+K IMIN*60+K ISEC 

06450  FREQKI=FL0AT(MPDT(10))/10  ♦  RANGK I =FLQAT ( MPDT ( 1 1 ) ) / 10 

06460  KGAIN=NPDT(12)  $  NFREQK I =MPDT(9) 

06470  GO  TO  555 

06490CK 

06490  460  KLYR=MPDT ( 2 ) / 1000  *  KLDY=M0D(MPDT(2) , (KLYR*1000) ) 

06500  KLHR=MPDT ( 3 ) / 10000  *  KLMIN=MPDT(3)/100-KLHR*100 

06510  KLSEC=MPDT(3)-KLHR*10000-KLMIN*100 

06520  KLTIME =KLHR*3600+KLM I N*60+KLSEC 

06530  IF(KLDY.NE.KIDY)  KLTIME=KLTIME+86400 

06540  IF( (KLTIME-MTIME) .GT. 18)  GO  TO  550 

06550  IF ( ( KLT IME-K I T IME ) . GT . 300 )  GO  TO  550 

06560CK 

06570  IF(MPDT(9) .NE.NFREQKI )  470,480 

06580  470  IF ( (KPRINT .AND.64) .EQ.O)  PRINT*,*  DIFFERENT  FREQ-NO  ENCOUNTERED" 

06590  GO  TO  550 

06600CK 

06610  480  IF ( ( ABS( (FLOAT(MPDT( 10) )/10)-FREQKI ) ) .GT.500. )  490,500 

06620  490  IF( (KPRINT. AND. 64). EQ.O)  PRINT*,*  FREQ.  DIFFERENCE  G.T.  0.5  MHZ* 

06630  GO  TO  550 

06640CK 

06650  500  IF( (ABS( (FLOAT(MPDT( 11 ) )/10)-RANGKI ) ) .GT. 10. )  510,520 

06660  510  IF( (KPRINT. AND. 64). EQ.O)  PRINT*,"  RANGE  DIFFERENCE  G.T.  10  KM" 

06670  GO  TO  550 

06680CK 

06690  520  IF(MPDT(12).NE.KGAIN)530,555 

06700  530  IF( (KPRINT. AND. 80). EQ.O)  PRINT  540,KGAIN,MPDT( 12) 

06710  KGAIN=MPDT(12) 

06720  540  FORMAT ( "  NOTE  GAIN  CHANGE  FROM  ",I3,"  TO  ",I3> 


■  r  •  *  .  *  %  •  ■  »  ■  •  . 


1  *  •  .  ■  A  «’•  *  •  j*'' 

=■  *  ' *  ■ vVsAi.*. 
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06730  GO  TO  555 

06740CK 

06750  550  BACKSPACE  50  $  BACKSPACE  50 

06760  00  TO  1175 

06770CK 

06780CK*******®*******  DETERMINE  PARAMETERS  ================ 

06790CK  OF  THE  CASE  BEING  CALCULATED 

06800CK 

06810  555  MSTAT-MPDT(l)  %  KSEQ=NN(KASE> 

06820  IF(KASE.NE.l)  GO  TO  560 

06830  MYR=KIYR  $MDY=KIDY  *MHR=KIHR  $MMIN*KIMIN  *MSEC=KISEC  <MTIME=KlTIME 

06840  GO  TO  565 

06850  560  MYR*KLYR  $MDY=KLDY  *MHR=KLHR  $MMIN=KLMIN  4MSEC=KLS£C  $MTIME=KLTIME 

06860  565  MRWTT=MPDT(6)  *  MGNXZ=MPDT(7) 

06870CK 

06880CK=*===IN:  DIGISONDE  PROGRAM  NUMBER 

06B90CK  DFR:  DOPPLER-FREG  RESOLUTION  (SPECTRAL  SPACING) 

06S00CK  DF2:  DOPP-FREQ  OF  DOPPLER  NO.  1 

06910CK  NFREG:  ACTUAL  FREQ.  NO.!  NUMFREQ:  TOTAL  NO.  OF  FREQUENCIES 
06920CK  FREQ  IN  100HZ  UNITS  CONVERTED  TO  KHZ 

06930CK  RANGE  IN  100M  UNITS  CONVERTED  TO  KM 

06940CK 

06950  IN=NGNXZ/100-(MGNXZ/1000)*10 

06960  DFR*. 12254902  t  IF(IN.E8.7)  DFR* DFR/ 2 

06970  DF2*DFR/2  *  IF( IN.EQ.5.0R. IN.EG.B)  DF2>0 

06980  NFREG*HPDT(9) 

06990  NUHFREQ-6-3* ( IN/8 ) 

07000  FREQ«FLOAT(MPDT(10))/10 

07010  RANG*FL0AT(MPDT(tl))/10 

07020  SINZHAX*2897.92S/FREQ 

07030  IF(SINZMAX.GT. 0.707)  SINZHAX*.707 

07040  SCALE*. 707*RANG*SINZMAX/20 

07050  R-RANG/SCALE 

07060CK 

07070CK*** ********** *********  PRINT  HEADING  =«********==*=**====*== 
07080CK 

07090  IF < (KASE.NE. 1 ) .OR. ( (KPRINT .AN0.64) .NE.O) )  GO  TO  630 

07100CK 

07110  IF( ( (KPRINT. AND. 7) .NE.O) .OR. ( ( (KPRINT. AND. 8) .NE.O) .AND. (NGRP.EO. 1 >  > ) 

07120+  PRINT  570.M6TAT . NYR . HD Y.MRWTT.MQNXZ.NFREQ, FREQ, RANG. 

0/130+  SCALE. HNTl.HMTZ 

07140  570  FORMAT (////»l»/ IX. *STAT  DATE  RMTT  QNXZ  FREQ. NO.  FREQ (KHZ)  #, 

07150+  *RANQ£(KM)  SCALE  VEL  WEIGHTING  FACTOR  */, 

07160+  IX, 13. 2X. 12.2. 1H- . 13.3. 2( IX. 14.4) . I5.F13.1 ,F9. 1 .F7.1 .3X.2A10//) 

07170CK 

07180  IF(KPRINT.EQ.l)  PRINT  580,  SCALE 

07190  580  FORMAT (22X, ‘(POSITION  UNITS!  X.Y.Z  #",F4."  uX, 

07200+  »+X.+VX*NORTH  +Y,+VY=MEST)*/ 

07210+  17X.+NEG-D0PP  SOURCE  POSITION  POS-DOPP  SOURCE  POSITION* » 

07220+  »  VELOCITY(M/S)+/ 

07230+  1X.+CASE  TIME  X  Y  Z  SIG  NI  NF  X  Y», 
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0/240+  *  Z  SIG  NI  NF  MX  MY  MZ  MH  MEL  AZIH  ELEM*. 

07250+  *  SIG  ESQ  NI  NF*) 

07260CK 

07270  IF( (KPRINT.AND.2) .NE.O)  PRINT  590 

07280  590  FORMAT (20X,*( MAP  COORD)*. 3X,*(  +MX=NORTH  +MY=WEST  )*,13X,*N0.  OF* 

07290+  /1X.*CASE  TIME  MIN  DB  IMX  IMY  MX(M/S)  MY  MZ  MH*. 

07300+  *  MEL  AZIM  ELEM  SOURCES  ESQ*) 

07310CK 

07320  IF( (KPRINT.AND.4) .NE.O)  PRINT  600 

07330  600  FORMAT (14X,*( MAP  COORD)  (  +MX=NORTH  +MY=WEST  )*/ 

07340+  1X,*CASE  TIME  IMX  IMY  MX (M/S)  MY  MZ  MH  MEL*. 

07350+  *  AZIM  ELEM  SIG  ESQ  NI  NF*) 

07360CK 

07370  IF( ( (KPRINT.AND.8) .NE.O) .AND. (NGRP.EQ.l ) )  PRINT  610 

07380  610  FORMAT (36X,*< MAP  COORD)*. 3X,*(  +MX=NORTH  +UY=WEST  )*/ 

07390+  1X.*GR0UP  TIME  FREQ (KHZ)  RANGE(KM)*. 

0/400+  *  IMX  IMY  MX (M/S)  MY  MZ  MH  MEL  AZIH  ELEM  SIG*, 

07410+  *  ESQ  NI  NF*) 

0/420CK 

07430CK=====IF  NO  SOURCES,  PRINT  MESSAGE  (UNLESS  K PRINT  INCLUDES  8,16,  OR  64). 
07440CK  IF  PRINTING  CASE-NORM,  GROUP-NORM  OR  ALL-FREQ  GRAPHS,  SKIP 
07450CK  INDIMIDUAL-MELOCITY  CALCULATION  LOOP?  OTHERWISE,  GO  TO  END 
07460CK  OF  CASE  LOOP. 

07470CK 

07480  630  IF( IENDPQS.NE.O)  GO  TO  645 

07430  IF( (KPRINT.AND.8B) .EQ.O)  PRINT  640, KASE,MHR,MMIN, MSEC 

07500  640  F0RMAT(ZX,Z1,2X,2(I2.Z,1H:>,I2.2,3X,*N0  SOURCES*) 

07510  IF(((KPRINT. AND. 64). NE.O). AND. ((KPRINT.AND.2). EQ.O))  GO  TO  955 

07520  GO  TO  1170 

07530CK 

07540CK = = =  =  =F I ND  MAX  AND  MIN  FWPD  (LOG  DENSITY)  OF  NEG-  AND  POS-DOPPLER 
07550CK  SOURCES  COMBINED  FOR  THIS  CASE. 

07560CK 

07570  645  CONTINUE 

07580CKKK  645  ID8MAX=IDBMIN=0 

07590CKKK  IF( IENDPOS.EQ.O)  GO  TO  660 

07600CKKK  DO  650  MC0L=1 , IENDPOS 

07610CKKK  IDBMIN=MIN0(MAPDAT(3,MC0L) , IDBMIN) 

07U20CKKK  650  I DBMAX =MAXO ( MAPDAT ( 3 , MCOL  > , I DBMAX ) 

07630CKKK  660  CONTINUE 

0/640CK 

07650CKKK  IDB6=MAX0< ( IDBMAX-5) ,0) 

07660CK 

07670  IF(KPRINT.NE.l)  GO  TO  760 

07680CK 

0/690CK====s  FIND  CASE-NORM  SOURCE  POSITIONS  ==== 
07700CK  (NEG-  AND  POS-SOURCE  POSITIONS  SEPARATELY) 

07710CK 

07720  DO  750  J=l,2 

07730  NC1=1  %  NC2=IENDNEG 

07740  IF(J.EQ.l)  GO  TO  690 
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07750  NCl=IENDNEG+l  *  NC2=IENDP0S 

07760  690  NS=0 

07770  DO  700  1=1,160 

07780  700  XX(I)=YY(I)=ZZ(I>*0 

07790  IF(NC2.LT.NC1)  GO  TO  720 

07900  DO  710  NC0L=NC1,NC2 

07810CKKK  IF(MAPDAT(3,NC0L) .LT. I DBG)  GO  TO  710 

07820  NS=NS+1 

07830  YY (NS ) =21-MAPDAT ( 1 , NCOL ) 

07840  XX ( NS ) =2 1-HAPDAT ( 2 , NCOL ) 

07850  ZZ ( NS ) =SBRT ( R*R-XX  <  NS ) *XX ( NS 1 - YY ( NS ) *YY ( NS  > ) 

07660  710  CONTINUE 

07870  720  GO  TO  (730,740)  J 

07880  730  KASENEG=1 

07890  CALL  AVE(1,2,XX,YY,ZZ,0NE,NS,CNX,CNY,CNZ,CNS,DUM,NICN.NFCN> 

07600  IF(NFCN.EQ.O)  KASENEG=0 

07910  CASENX ( K ASE ) =CNX 

07920  CASENY ( K ASE ) =CNY 

07930  CASENZ ( K ASE ) =CNZ 

07940  CASENS ( K ASE ) =CNS 

07950  GO  TO  750 

07860  740  KASEP0S=2 

07970  CALL  AVE(1 ,2,XX,YY,ZZ,0NE,NS,CPX,CPY,CPZ,CPS,DUH,NICP,NFCP) 

07980  IF(NFCP.EQ.O)  KASEP0S=0 

07990  CASEPX (KASE) =CPX 

08000  CASEPY ( K ASE ) =CPY 

08010  CASEPZ ( KASE ) =CPZ 

08020  CASEPS ( KASE ) =CPS 

08030  750  CONTINUE 

0B040CV 

08050CV============  CALCULATION  OF  VELOCITY  ============= 

08060CV  THE  SOURCES  FOR  EACH  CASE  ARE  SORTED  IN  ORDER  OF  DECREASING  DENSITY, 
08070CV  INCREASING  DENSITY,  DECREASING  ABS(DOPP.  NO.),  OR  INCREASING 
08080CV  ABS(DOPP.  NO.),  AS  REQUESTED  IN  INPUT  PARAMETERS. 

08090CV  "MINSRC"  (INPUTTED  AT  THE  BEGINNING  OF  THE  RUN)  IS  THE  MINIMUM  NUMBER 
08100CV  OF  SOURCES  REQUIRED  FOR  THE  FIRST  VELOCITY  CALCULATION  (USING  TOO  FEW 
081 IOC V  SOURCES  CAN  RESULT  IN  VERY  LARGE  ERRORS  IN  VELOCITY  EVEN  THOUGH  ESQ 

08120CV  APPROACHES  ZERO).  EACH  SUCCEEDING  CALCULATION  INCLUDES  ONE  MORE 
08130CV  SOURCE. 

08140CV 

08150CV  NSRC  COUNTS  THE  NUMBER  OF  SOURCES  USED.  A  SOURCE  IS  SKIPPED  IF: 

08160CV  —ITS  DOPPLER  NUMBER  IS  .LT.  MINDOPP  OR  .GT.  MAXDOPP 
08170CV  (MINDOPP, MAXDOPP  ARE  INPUTTED  AT  BEGINNING  OF  RUN) J 

0B180CV  —IT  RESULTS  IN  A  VELOCITY  WHERE  ABS(VZ) .GT.MAXVZ,  OR  ESQ.GT.MAXESQ 
08190CV  (UNLESS  THE  SOURCE  IS  ONE  OF  THE  "MI NSRC"  SOURCES  USED  IN  THE 

08200CV  FIRST  CALCULATION:  IN  THAT  CASE,  THE  VELOCITY  IS  IGNORED,  BUT 

08210CV  ALL  MINSRC  SOURCES  ARE  KEPT,  SINCE  THERE  IS  NO  WAY  IF  KNOWING 

08220CV  WHICH  SOURCE  IS  BAD). 

08230CV 

08240CV  NIVEL  COUNTS  THE  INDIVIDUAL  VELOCITY  CALCULATIONS  FOR  THIS  CASE. 

08250CV 
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08260CV  THE  RESULTS  ARE  STORED  IN  ARRAYS  DBVX( NIVEL),  ETC. 

08270CV 

08280CV  LEAST-SQUARE-ERROR  CALCULATION: 

08/90CV 

OSiOOCV  2 

08310CV  ESQ=  SUM  A( I )*[ <V»R< I ) )-(-C*DFREG( I )/ (2+FREQ) ) ] 

OG320CV  I 

08330CV  _ 

08340CV  SUM  A(I) 

08350CV  I 

08360CV 

08370CV  ESQ=LEAST  SQUARE  ERROR 
08380CV  A(I) -WEIGHTING  FACTOR 

08::90CV  (V,R{ I ) )=DOT  PRODUCT  OF  VELOCITY  VECTOR  V  AND  UNIT 

08400CV  POSITION  VECTOR  R(I) 

08410CV  C=SPEED  OF  LIGHT  IN  VAC 

08420CV  DFREQ( I ) =DOPPLER-FREQ  COMPONENT  IN  DIRECTION  OF  R(I) 

08430CV 

08440CV  SETTING  DERIVATIVES  (W.R.T.  VX,VY,VZ>  OF  ESQ  EACH  EQUAL  TO  ZERO  GIVES  3 
08450CV  EQUATIONS  WHICH  ARE  SOLVED  FOR  VX,V Y,VZ  VIA  CRAMER'S  RULE; 

08460CV  ESQ  IS  THEN  CALCULATED  BY  PLUGGING  IN  VX,VY,VZ. 

08480CV 

08490  760  NIVEL=0 

08500  IF( ( (KPRINT.EQ.66> .AND. (IENDP0S.LT.4) ) .OR. 

08510+  ( (KPRINT.NE.66) .AND. (IENDPOS.LT.MINSRC) ) )  GO  TO  955 

08520CV 

08530  DO  785  1=1,60 

08540  765  DBVX ( I ) =DBVY ( I ) =DBVZ ( I ) =DBESQ ( I ) =0 

08550CV 

08560  IEND=IENDP0S-1 

08570  770  IFAGAIN=0 

08580  DO  790  KC0L=1,IEND 

08590  GO  TO  (771,772,773,774)  ISORT 

08600  771  IF(MAPDAT(3,KC0L).GE.MAPDAT(3,KC0L+1))  790,775 

08610  772  IF(MAPDAT(3,KC0L).LE.MAPDAT(3,KC0L+i)>  790,775 

08620  773  IF< IABS(MAPDAT(4,KC0L) ) .GE. IABS(MAPDAT(4,KC0L+1 ) ) >  790,775 

08630  774  IF(IABS<MAPDAT(4,KC0L) ).LE.IABS(MAPDAT(4,KC0L+1 ) > >  790,775 

081.40  775  IFAGAIN=1 

08650  DO  780  KR0W=1,4 

08660  MTEMP ( KROW ) =MAPDAT ( KROW , KCOL ) 

08670  MAPDAT ( KROW , KCOL ) =MAPDAT ( KROW , KCOL+ 1 ) 

08680  780  MAPDAT(KR0W,KC0L+1 )=MTEMP(KROW) 

08690  790  CONTINUE 

08700  IF(IFAGAIN.EQ.l)  GO  TO  770 

08710CV 

08/20  XSQ=YSQ=ZSQ=WSQ=XY=XZ=YZ=WX=WY=WZ=SUMA=NSRC=0 

08/30  VX=0. 

08740  VY=0. 

08750  VZ=0. 

08760CV 
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08770  DO  950  NC0L=1,IENDP0S 

08780  IFMPD=MAPDAT(3,NCDL) 

08790  ID0PP=MAPDAT(4,NC0L) 

08800  FWPD=IFMPD 

08810  DOPPsIDOPP 

08820CV 

08830CVW  PRINT*, “  NCQL,FNPD,DOPP  " ,NCOL,FHPD.DOPP 

0BB40CWV  PRINT  800,XSG, YSG,ZSG,WSQ,XY,XZ, YZ,WX,WY,WZ,SUMA 

08850  800  FQRHAT(“  XSQ.. .*,6F15.3/7X,6F15.3) 

08860CV 

08870  IF( IA8S( IDOPP) .LT.HINDOPP)  GO  TO  910 

08880  IF(IABS( IDOPP) .GT.NAXDOPP.AND.MAXDOPP.NE.O)  GO  TO  910 

08890C0 

08900  Y=<2t-MAPMT(1,NC0L>> 

06910  X=(21-MAPDAT (2,NC0L) ) 

08920  Z=SGRT(R*R-X*X-Y*Y> 

08930  GO  TO  (820,830,840,850,860,870)  IWT 

08940  820  A=FHPD  $  GO  TO  880 

08950  830  A=FUPD*ABS ( DOPP )  %  GO  TO  880 

08960  840  A=10**(FMPD/10)  ♦  GO  TO  880 

08970  850  A=(10**(FHPD/10) )*AB5(D0PP)  *  GO  TO  880 

08980  860  A=A8S(D0PP)  *  GO  TO  880 

08990  870  A=1 

09000  880  DFREG=(DF2+(ABS(D0PP)-1)*I^R)*(D0PP/ABS(D0PP)) 

09010  M=-299792.5*DFREG/(2*FREG) 

090Z0CV 

09030  Y=SQRT(A)*Y/R 

09040  X=SQRT(A)*X/R 

09050  Z=SQRT(A)*Z/R 

09060  M=SQRT(A)*U 

09070CV 

09080  XSQ=XSQ+X*X  $  YSQ=YSQ+Y*Y  *  ZSQ=ZSG+Z*Z  «  MSQ=MSQ+W*H 

09090  XY=XY+X*Y  ♦  XZ=XZ+X*Z  *  YZ=YZ+Y*Z 

09100  MX=WX+M*X  *  MY=HY+W*Y  $  WZ=HZ+M*Z  *  SUHA=SUMA+A 

09110CV 

09120CWV  PRINT  800, XSG, YSQ,ZSQ,WSQ,XY,XZ,YZrWX,HY,NZ.SUMA 

09130CV 

09140  NUMB=NSRC=NSRC+1 

09150C 

09160CWV  IF(NCOL.EQ.  IENDPOS)  GO  TO  895 

09170CWV  IF(IFMPD.EQ.HAPDAT(3, (NCOL+1 ) > )  GO  TO  950 

09180C 

09190CWV  895  IF(NSRC.GE.MINSRC)  GO  TO  897 

09200  IF(N5RC.GE.MIN8RC>  GO  TO  897 

09210  IF( (KPRINT .AND. 64) .NE.O)  GO  TO  920 

09220  GO  TO  950 

09230CV 

09240  897  DX=DET(WX,XY,XZ,MY,YSQ,YZ,MZ, YZ,ZSQ> 

09250  DY =DET  <  XSQ , MX , XZ , XY , NY , YZ , XZ , WZ , ZSQ  > 

09260  DZ*DET ( XSQ , XY , NX , XY , YSQ , MY , XZ , YZ , WZ ) 

09270  D=DET  <  XSQ , XY , XZ , XY , YSQ , YZ , XZ , YZ , ZSQ ) 
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09280CV 

09290  VZ=DZ/D 

09300  IF(IFIX(ABS(VZ) ) .GT.MAXVZ.AND.MAXVZ.NE.O)  GO  TO  900 

093 IOC V 

09320  VX=DX/D  *  VY=DY/D 

09 .  *  sO  ESG=VX#VX*XSG+VY*VY* YSG+VZ* VZ*ZSG+HSG+2*VX* ( VY*XY+VZ*XZ 

09340+  -MX ) +2*VY* { VZ» YZ-HY ) -2*VZ*WZ 

09350  ESG=ESG/SUMA 

09390  IF( IFIX(ESG) .GT.MAXESG.AND.MAXESQ.NE.O)  GO  TO  900 

09370C 

09380  NIVEL=NIVEL+1 

09390  DBVX(NIVEL)=VX 

09400  DBVY(NIVEL)=VY 

09410  DBVZ(NIVEL)=VZ 

09420  0BES8 (NIVEL) =ESG 

09430  GO  TO  920 

09440CV 

09450CVVV  900  CONTINUE 

09460  900  XSG=XSG-X*X  $  YSG=YSQ-Y*Y  *  ZSG=ZSG-Z*Z  *  WSG=USG-M*M 

09470  XY=XY-X#Y  $  XZ=XZ-X*Z  %  YZ=YZ-Y*Z 

09480  MX=WX-M*X  *  HY=MY-W#Y  *  MZ=HZ-M#Z  %  SUMA=SUMA-A 

09490  NSRC=NSRC-1 

09500CV 

09510CVVV  PRINT#,"  SKIPPED:  NCOL,FMPD,DOPP  “,NCOL,FMPD,DOPP 

09520CV 

09530  910  NUMB=*  " 

09t>40  IF(  (KPRINT.AND.64)  .EG.O)  GO  TO  950 

09550CV 

09590  920  IF( (KPRINT.AND.2) .EG.O)  GO  TO  950 

09570CV 

09580  CALL  VEL(VX.VY,VZ,VH,V,AZIM,ELEV> 

09590  IF( (KPRINT.AND.64). EG.O)  GO  TO  930 

09900  CALL  GRAPH ( KSEG , MHR , MM IN , FREG , RANG , NUMB , FMPD , DOPP , NCOL , KASE 

09910+  NGRP , OH , OZ , AZ IM , DUM , ESG , K  PR I NT , I DUM , M I NSRC ) 

09620  GO  TO  950 

09630  930  CALL  POLMAP( IDUM.KPRINT, KASE, VY.VX, IVY, IVX,1> 

09640CV 

09650  PRINT  940, KASE. MHR, MMIN, MSEC, IFHPD,IVX, IVY, VX,VY,VZ, 

09660+  ( IFIX(0H+.5) ) , ( IFIX(V+.5> ) ,AZIM,ELEV,NSRC, 

09670+  ( IFIX(ESQ+.5) ) 

09680  940  FORMAT (2X,Z1 ,2X,2(I2.2,1H: ) , 12.2, 15, 17, I4,F8,F6,F5r 

09690+  2I5,F6,F5, 15,19) 

09700CV 

09710  IF(KPRINT.EG.34) 

09720+  CALL  P0LMAP(NGRP,KPRINT,KASE,DUM,DUM1,IVY,IVX,Z> 

09730CV 

09740  950  CONTINUE 

09750CV 

09/60CV=====END  OF  INDIVIDUAL-VELOCITY  LOOP 

09770CV  NGIVEL  COUNTS  THE  INDIV.  VELOCITIES  IN  THIS  GROUP 

09780CV 
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09790  NGIVEL=NGIV£L+NIVEL 

09800CV 

09810CK 

09820  IF(NIVEL.NE.O)  GO  TO  970 

09830  9SS  IF( (KPRINT.AND.89) .EQ.O)  PRINT  960,KASE.MHR,MMIN,MSEC 
09840  960  FORMAT (2X.Z1 ,2X,2( 12.2, 1HI ), 12.2, 3X, 

09850+  *NOT  ENOUGH  SOURCES  FOR  VELOCITY  CALCULATION*) 

09860  KASEVEL=0  *  NIV£L="  « 

09870  IF(KPRINT.EG.S8)  GO  TO  1000 

09880  GO  TO  1030 

09890CK 

09900  970  KASEVELM 

09910CK 

09920CK===========  FIND  CASE-NORM  VELOCITIES  ======= 

09930CK  BY  CALCULATING  THE  AVE  OR  MEDIAN  OF  THE  INDIVIDUAL  VELOCITIES. 

09940CK  NKVEL  COUNTS  THE  CASE-NORM  VELOCITIES  IN  THIS  GROUP. 

09950CK 

09960  IF( (KPRINT.AND.2) .NE.O)  GO  TO  1170 

09970  GO  TO  (980.98S.990)  1CV 

09980  980  CALL  MEDIAN(D8VX,DBVY.D8VZ. ONE, NIVEL. CVX.CVY.CVZ, CVS. CVE.NFCV) 

09990  GO  TO  995 

10000  985  CALL  MEDIAN(0BVX,DBVY,DBVZ,D6ESfl,NIVEL,CVX,CVY,CVZ,CVS.CVE,NFCV) 

10010  GO  TO  995 

10020  990  CALL  AVE(NFREG, ICV1 .DBVX.DBVY.DBVZ.DBESQ, NIVEL, CVX.CVY.CVZ, CVS, 

10030*  CVE.NICV.NFCV) 

10040  995  NKVEL =NKVEL+1 

10050  CASEVX ( KASE ) =CVX 

10060  CASEVY (KASE ) =CVY 

10070  CASEVZ(KASE)=CVZ 

10080  CASES I G ( KASE ) =C VS 

10090  CASEESG ( KASE ) =CVE 

10100CK 

10110  IF ( (KPRINT.AND.5) .NE.O) 

10120+  CALL  VEL ( CVX , CV Y , CVZ , CVH , CV , C AZ , CEL ) 

10130  IF( (KPRINT.AND.4) .EQ.O)  GO  TO  1030 

10140  IF( (KPRINT.AND.64) .EQ.O)  GO  TO  1010 

10150CK 

10160  1000  CALL  GRAPH(KSEG, MHR.MMIN, FREQ, RANG, NIVEL, DUM, DUM1 , IDUM, KASE, 
10170+  NDUM , CVH , C VZ , CAZ , C VS , DUM2 , K  PR I NT , I DUM2 , 1 DUM3 ) 

10180  GO  TO  1030 

10)90  1010  CALL  POLMAP( IDUM, KPRINT, KASE, CVY, CVX, IVY, IVX.l) 

10200  PRINT  1020, KASE .MHR.MMIN, MSEC, 

10210+  IVX, IVY, CVX, CVY, CVZ, ( IFIX(CVH+.5) > , ( IFIX(CV+.5> ) . 

10220+  CAZ, CEL, (IFIX(CVS+.5) ) , ( IFIX(CVE+.5> ) .NICV.NFCV 

10230  1020  FORMAT (2X.Z1 ,2X,2( 12.2, 1H: ) , 12.2, 16, I4,F7,F6,F5,2I4, 

10240+  2F5, 15. 17,213) 

10250  IF(KPRINT.EQ.36) 

10260+  CALL  POLMAP(NKVEL, KPRINT, KASE, DUM, DUM1, IVY, IVX, 2) 

10270CK 

10280  1030  IF(KPRINT.NE.l)  GO  TO  1170 
10790CK 
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10300CK=============================== ======================================== 

10310CK  PRINT  CASE-NORM  NEGATIVE-  AND  POSITIVE- DOPPLER  SOURCE  POSITIONS  AND 
10320CK  VELOCITIES  FOR  THIS  CASE.  KASENEG,  ETC.,  DETERMINE  WHICH  PRINT 
10330CK  STATEMENT  TO  USE.*  ONLY  THE  "NON-ZERO"  RESULTS  ARE  PRINTED. 

10340CK  (IF  THERE  ARE  NO  SOURCES,  SEE  COMMENT  PRECEDING  STATEMENT  630  ABOVE.) 
10350CK=== ==================================================== ================ 

10360CK 

10370  NFCNTOT =NFCNTQT+NFCN 

10380  NFCPTOT =NFCPTOT+NFCP 

10390  GO  T0( 1040, 10B0, 1080,1 100,1110, 1130, 1150) (KASENEG+KASEPDS+KASEVEL) 

10400CK 

10410  1040  PRINT  1 050 , K ASE , MHR , MM I N , MSEC , 

10420+  CNX,CNY,CNZ, ( IFIX(CNS+.5) ) »NICN»NFCN»NICP,NFCP, 

10430+  NICV,NFCV 

10440  1050  FORMAT (2X,Z1 ,2X,2< 12.2, INI ), 12.2, 4X,3F5, 313, 23X, 213, 55X, 213) 

10450  GO  TO  1170 

10460CK 

10470  1060  PRINT  1070, K ASE, MHR, MM IN, MSEC, 

10480+  NICN,NFCN,CPX,CPY,CP2,(IFIX(CPS+.5)),NICP,NFCP, 

10490+  NICV.NFCV 

10500  1070  FORMAT (2X,Z1 ,2X,2( I2.2,1H1 ) , I2.2,22X,2I3,5X,3F5,3I3,55X,2I3) 

10510  GO  TO  1170 

10520CK 

10530  1080  PRINT  1090, KASE, MHR, MMIN, MSEC, 

10540+  CNX,CNV,CNZ, ( IFIX(CNS+.5) ) ,NICN,NFCN, 

10550+  CPX,CPY,CPZ, ( IFIX(CPS+.5) ) ,NICP,NFCP,NICV,NFCV 

10560  1090  FORMAT (2X,Z1 ,2X,2( 12.2, 1HI ) , IZ.2,4X,3F5,3I3,5X,3F5,3I3,55X,2I3) 

10570  1100  GO  TO  1170 

10380CK 

10590CK 

10600  1110  PRINT  1120, KASE, MHR, MMIN, MSEC, 

10610+  CNX,CNY,CNZ, ( IFIX(CNS+.5> ) ,NICN,NFCN,NICP,NFCP, 

10620+  CVX,CVY,CVZ, ( IFIX1CVH+.5) ) , ( IFIX(CV+.5) ) ,CAZ, 

10630+  CEL, ( IFIX(CVS+.5) ) , ( IFIX(CVE+.5> ) ,NICV,NFCV 

10640  1120  FORMAT (2X,Z1 ,2X,2(I2.2,1H:>, I2.2,4X,3F5,3I3,23X,2I3,4X,2F7,F6,2I5, 

10650+  2F5, 15, 16,213) 

10660  GO  TO  1170 

10670CK 

10680  1130  PRINT  1140, KASE, MHR, MMIN, MSEC, 

10690+  NICN,NFCN,CPX,CPY,CPZ, ( IFIXCCPS+.5) ) ,NICP,NFCP, 

10700+  CVX,CVY,CVZ, ( IFIX(CVH+.5) ) , ( IFIX(CV+.5) ) ,CAZ, 

10710+  CEL, ( IFIX(CVS+,5) ) , ( IFIX(CVE+.5> ) ,NICV,NFCV 

10720  1140  FORMAT (2X, Z1 »2X, 2 ( 12.2, lHI ) , I2.2,22X,ZI3,5X,3F5,3I3,4X,2F7,F6,2I5, 

10730+  2F5, 15, 16,213) 

10740  GO  TO  1170 

10750CK 

10760  1150  PRINT  1160, KASE, MHR, MMIN, MSEC, 

10770+  CNX , CNY , CNZ , ( IFIX(CNS+.5) ) ,NICN,NFCN, 

10780+  CPX,CPY,CPZ, ( IFIX(CPS+.5> ) ,NICP,NFCP, 

10/90+  CVX,CVY,CVZ, ( IFIX(CVH+.5) ) , ( IFIX(CV+.5) ) ,CAZ, 

10800+  CEL, ( IFIXCCVS+.5) ) , < IFIX(CVE+.5> ) ,NICV,NFCV 
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10810  1160  F0RMAT(2X,Z1f2Xf2<I2.2f1H:).I2.2f4Xf3F5,3I3.5Xf3F5f3I3.4Xf2F7fF6, 


10820+  2I5»2F5» I5r I6f2I3) 

10830CK 

10840  1170  CONTINUE 
10850  60  TO  1180 

10860CK 

10870CK=a===================  END  OF  CASE  LOOP  ================= 

10880CK 

10890  1175  KASEaKASE-l 
10900CK 

10910CK=====PRINT  POLAR  HAP  OF  INDIVIDUAL  OR  CASE-NORM  VELOCITIES 
10920CK 

10930  1180  IF( ( (KPRINT.EG.34) .AND. (NGIVEL.NE.O) ) .OR. 

10940+  < (KPRINT.EQ.36) .AND. (NKVEL.NE.O) ) ) 

10950+  CALL  POLMAP(NDUMfKPRINTf IDUMfDUMfDUMI » IDUM1 » IDUH2.3) 

10960CK 

10970  IF( (KPRINT.AND.6) .NE.O)  GO  TO  1420 

10980  IF(KPRINT.NE.l)  GO  TO  1182 

10990CG 

11000CGaaaaaFIND  GROUP-NORM  NEG-  AND  POS-DOPP  SOURCE  POSITIONS 
11010CG 

11020  KGRPNEG= 1  $  KGRPP0S=2 

1 1030  CALL  AVE ( NFREQ , 1 , CASENX r CASENY , CASENZ , ONE , KASE  f GNX . GNY , GNZ , 

11040+  GNSfDUMfNIGNfNFGN) 

11050  IF(NFGN.EQ.O)  KGRPNEG=0 

11060CG 

11070  CALL  AVE ( NFREQ , 1 , CASEPX , CASEPY , CASEPZ  f  ONE , KASE , GPX , GPY , GPZ , 

11080+  GPSfDUM.NIGPfNFGP) 

11090  IF(NFGP.EG.O)  KGRPP0S=0 

11100CG 

11110CG=====FIND  GROUP  TIME  ROUNDED  OUT  TO  NEAREST  2.5  MINUTES 
11120CG 

11130  1182  IF( (KPRINT.AND.24) .EG.O)  GO  TO  1185 
11140  KFTIME=MTIME 

11150  KIT=IFIX(FLQAT(KITIME)/150+.5)*150 

11160  KFT=IFIX(FLQAT(KFTIME) /150+.5)*150 

11170  IF( ( IABS(KIT-KITIME) ) .GT . < IABS(KFT-KFTIME) ) )  GO  TO  1183 

11180  NGRPDAT =K I YR* 1 000+K I DY 

11190  NGRPTIM=KIT 

11200  GO  TO  1184 

11210  1183  NGRPDATaMPDT<2) 

11220  NGRPTIM=KFT 

11230  1184  IF (NGRPTIM.GT. 86400)  NGRPTIM*NGRPTIM-B6400 
11240  NGRPHR =N1WPT I M/3600  $  NM I NSEC =NGRPT IM-NGRPHR* 3600 

11250  NGRPMIN=NMINSEC/60  *  NGRPSEC=NMINSEC-NGRPMIN*60 

11260CG 

11270  1185  IF(NKVEL.NE.O)  GO  TO  1187 
11280CG 

11280  K0RPVEL=0  ♦  NKVEL=K  "  *  GVX*GVY=GVZ=0  *  NIGV=NFGV=0 

11300  IF( ( (KPRINT.W<D.8) .NE.O) .AND. ( (KPRINT.AND.64) .EG.O) ) 

11310+  PRINT  1 186fNN(NGRP) fNGRPHRfNGRPMINfNGRPSECfFREGfRANGfNIGVfNFGV 
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11320  1186  F0RMAT!3X,A1 ,3X,2( 12.2, 1H1 ) , I2.2>F8. 1 ,F10. 1 ,60X,2I3) 

11330  GO  TO  1186 

11340CG 

11350  1187  KGRPVEL=4 
11360CG 

11370CG=====FIND  GROUP-NORM  VELOCITY 

11380CG  NOVEL  COUNTS  THE  NUMBER  OF  GROUP-NORM  VELOCITIES 
11390CG 

11400  GO  T0( 1191 . 1192r 1193)  ICV 

11410  1191  CALL  MEDIAN! CASEVX > C ASE V Y  > CASE VZ  , ONE , K ASE » GVX » GV  Y » GVZ * GVS > GVE , NFGV ) 
11420  GO  TO  1194 

11430  1192  CALL  MEDIAN ( CASEVX , CASEV Y  , CASEVZ , CASEESG , K ASE , GVX , GVY , GVZ , GVS , GVE , 
11440+  NFGV) 

11450  GO  TO  1194 

11460  1193  CALL  AVE  <  NFREG , I CV2 ,  CASEVX  , CASEVY , CASEVZ , CASEESG , K ASE , GVX  r  GVY , 

11470+  GVZ, GVS, GVE, NIGV, NFGV) 

11480  1194  NGVEL=NGVEL+1 
H490CG 

11500  1196  IF! 1KPRINT.AND.9) .NE.O) 

11510+  CALL  VEL ( GVX  ,  GVY ,  GVZ  >  GVH  , GV , GAZ ,  GEL ) 

11520CG 

11530  IF(KPRINT.EG.l)  GO  TO  1245 

11540  IF( (KPRINT.AND.8) .EQ.O)  GO  TO  1230 

11550  IF< (KPRINT.AND.64) .EG.O)  GO  TO  1210 

11560CG 

11570  1200  CALL  GRAPH! IGSEG,NGRPHR.NGRPMIN,FREQ,RANG,NKVEL,DUM,DUM1 , 

1 1 580+  IDUM.IDUM1, NDUM , GVH , GVZ  r  GAZ , GVS , DUM2 r  K  PR I NT , I DUM2 , 8 ) 

11590  ,  GO  TO  1230 

11600CG 

11610  1210  IF<NKVEL.EQ.''  ")  GO  TO  1230 

11620  CALL  P0LMAP!IDUM,KPRINT,NGRP,GVY,GVX,IVY,IVX,1) 

11630  PRINT  1220, !NN!NGRP) ) , NGRPHR , NGRPM IN , NGRPSEC , FREQ » RANG , I VX , I VY , 

11640+  GVX, GVY, GVZ, ( IFIX(GVH+.5) ) , ! IFIX1GV+.5) ) , GAZ, GEL, 

11650+  ! IFIXIGVS+.5) ) , ! IFIXIGVE+.5) ) »NIGV,NFGV 

11660  1220  FORMAT !3X,A1 ,3X,2( 12.2, 1H I ) , I2.2,F8. 1 ,F10.1 , 18, 14, 1X,2F6,F5, 

11670+  214, 2F5, 15, 17,213) 

11680  IF1KPRINT.EG.40) 

11690+  CALL  P0LMAP(NGVEL,KPRINT,NGRP,DUM,DUM1 , IVY, IVX»2) 

11700  1230  IF! IKPRINT.AND. 16) .EG.O)  GO  TO  1240 
11710CG 

11720  IF! IRANG.LT. 200.). OR. 1RANG.GT. 510.))  GVX=GVY=GVZ=0 

11730  CALL  ALLFREQ(KPRINT,NGRP,NGRPDAT, NGRPHR, NGRPMIN, NGRPSEC, GVX, 

1 1 740+  GVY , GVZ , FREG , RANG , NUMFREG , NFREG , ONE , ICV , ICV3 , IFHEAD , LASFREQ , NFVEL ) 

11750  1240  GO  TO  1410 

11760CG 

11770CG===================  PRINT  GROUP-NORM  ==================== 

11780CG=====  SOURCE  POSITIONS  AND  VELOCITIES  ====== 

11790CG  KG  DETERMINES  WHICH  PRINT  STATEMENT  TO  USE.’  ONLY  THE  “NON-ZERO" 
11B00CG  RESULTS  ARE  PRINTED.  IF  THERE  ARE  NO  SOURCES,  NOTHING  IS  PRINTED. 
11810CG 

11820  1245  KG=KGRPNEG+KGRPPOS+KGRPVEL 
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11830  IF(KG.EG.O)  GO  TO  1410 

11840  IF < (NFCNTOT+NFCPTOT) .NE.O)  PRINT  1 250 , NFCNTOT , NFCPTQT 

11850  1250  F0RMAT(6X,“(T0TAL)",25X,I3,26X,I3) 

11860  GO  T0< 1260, 1280, 1300, 1320, 1330, 1350, 1370)  KG 

11870CG 

11880  1260  PRINT  1270, "GROUP-NORM*," :M, 

11890+  GNX,GNY,GNZ, ( IFIX(GNS+.5) ) ,NIGN,NFGN,NIGP,NFGP, 

11900+  NIGM,NFGV 

11910  1270  FORMAT (/ IX, A10, A4, 2X,3F5, 313, 23X, 213, 55X, 213) 

11920  GO  TO  1390 

11930CG 

11940  1280  PRINT  1290, “GROUP-NORM 

11950+  NIGN»NFGN,GPX»GPY,GPZ» (IFIX(GPS+.5) ) ,NIGP,NFGP, 

11960+  NIGV,NFGU 

11970  1290  F0RMAT(/1X,A10,A4,20X,2I3,5X,3F5,3I3,55X,2I3) 

11980  GO  TO  1390 

11990CG 

12000  1300  PRINT  1310, "GROUP-NORM", “I", 

12010+  GNX,GNY,GNZ, ( IFIX(GNS+.5) ) ,NIGN,NFGN, 

12020+  GPX,GPY,GPZ, ( IFIX(GPS+.5) ) ,NIGP,NFGP,NIGV,WGV 

12030  1310  F0RMAT(/1X,A10,A4,2X,3F5,3I3,5X,3F5,3I3,55X,2I3) 

12040  1320  GO  TO  1390 

12050CG 

12060CG 

12070  1330  PRINT  1340," GROUP-NORM 

12080+  GNX,GNY,GNZ, ( IFIX(GNS+.5) ) ,NIGN,NFGN,NIGP,NFGP, 

12090+  GVX,6VY»GVZ, ( IFIX(GVH+.5) ) , ( IFIX(GV+.5) ) ,GAZ, 

12100+  GEL, ( IFIX(GVS+.5) ) , ( IFIX(GVE+.5) ) ,NIGV,NFGV 

12110  1340  F0RMAT(/1X,A10,A4,2X,3F5,3I3,23X,2I3,4X,2F7,F6,2I5, 
12120+  2F5, 15,16,213) 

12130  GO  TO  1390 

12140CG 

12150  1350  PRINT  1360, "GROUP-NORM", "I", 

12160+  NIGN,NFGN,GPX,GPY,GPZ,<IFIX(GPS+.5)),NIGP,NFGP, 

12170+  GVX,GVY,GVZ, ( IFIX(GVH+.5) ) , ( IFIX(GV+.5) ) ,GAZ, 

12180+  GEL, (IFIX(GVS+.5> ) , ( IFIX(GVE+.5> ) ,NIGM,NFGV 

12190  1360  FQRMAT(/1X,A10,A4,20X,2I3,5X,3F5,3I3,4X,2F7,F6»2I5, 
12200+  2F5, 15, 16,213) 

12210  GO  TO  1390 

12220CG 

12230  1370  PRINT  1380, "GROUP-NORM 

12240+  GNX,GNY,GNZ,(IFIX(GNS+.5)),NIGN,NFGN, 

12250+  GPX,GPY,GPZ,(IFIX(GPS+.5)),NIGP,NFGP, 

12260+  GMX,GVY,GVZ, (IFIX(GVH+.5> ) , ( IFIXCGV+.5) ) ,GAZ, 

12270+  GEL, (IFIX(GMS+.5) ) , ( IFIX(GVE+.5> ) ,NIGV,NFGM 

12280  1380  FORMAT  < / 1 X , A10 , A4 , 2X , 3F5 , 3 1 3 , 5X , 3F5 , 3 1 3 , 4X » 2F7 » F6 , 
12290+  215, 2F5, 15, 16,213) 

12300CG 

12310  1390  CONTINUE 

12320CGGG  1390  PRINT  1400, (GUX/20) , (GVY/20) , (GVZ/20) 

12330  1400  FORMATUX," (UNITS  OF  20) " ,60X,2F7,F6> 


\ A  ’if 
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12340CG 

12350  1410  IF(E0F50.EQ.l.)  GO  TO  1430 
12360CG 

12370  1420  CONTINUE 
12380CG 


12390  1430  IF < ( (KPRINT.EQ.40) .AND. (NGVEL.NE.O) ) .OR. 

12400+  ( (KPRINT.EG.48) .AND. (NFVEL.NE.O) ) ) 

12410+  CALL  PQLMAP  ( NOUN  » K  PR I NT , I DUM  >  DUM , DUM1 , 1 DUM1 . 1 DUH2  *  3 ) 

12420  IF{ (KPRINT.EG.40) .AND. (NGVEL.NE.O) )  PRINT  110 

12430  IF< (KPRINT.EG.48). AND. (NFVEL.NE.O))  WRITE(49.110> 

12440  GO  TO  330 

12450  END 

12460C 

12470C 

12480C 

12490C==== ======== =======  SUBROUTINE  UNPACK  ====*============== 

12500C  EACH  GO-BIT  WORD  IN  MPDT(13)  TO  MPDT(52)  CONTAINS  2  SETS  OF 
12510C  IY,  IX,  FWPD,  DOPPLER  NUMBER! 

12520C  IY, IX:  6  BITS  EACH! 

12530C  FWPD,DOPP.  NO.!  9  BITS  EACH. 

12540C  STORE  EACH  SET  IN  HAPDAT ( NROW » NCQLUMN ) > NROW= 1  TO  4. 

12550C  STORE  2  RECORDS  TOGETHER.' 

12560C  1ST  RECORD!  NEGATIVE  DOPPLERS  ( HAPDAT ( 4, NCOL)=DOPP.  NO.  IS  STORED 
12570C  AS  A  NEGATIVE  NUMBER). 

12580C  2ND  RECORD:  POSITIVE  DOPPLERS. 

12590C 

12S00C  for:  IBY=  1,  2,  3,  4,  5,  6,  7,  8: 

12610C  IBG=  6,  6,  9,  9,  6,  6,  9,  9,  AND 

12620C  IBF=  6,  12,  21,  30,  36,  42,  51,  60,  AND 

12630C  “63+448#! IBG/9) “=  63,  63,511,511,  63,  63,511,511. 

12640C========================================================================== 

12650C 

12660  SUBROUTINE  UNPACK! IS I GN, NROW, NCOL) 

12870  COMMON  MPDT(52) , HAPDAT (4, 160) 

12680  INTEGER  SHIFT 

12690C 

12700  DO  30  IM=13,52 

12710  IBF=0 

12720  DO  30  IBY=1 ,8 

12730  NR0W=NR0H+1  $  IF(NR0W.EQ.5)NR0W=1  %  IF(NROW.EG.l )NC0L=NC0L+1 

12740  IBG=3+3*( ( IBY+1-4*! IBY/5) )/2)  *  IBF=IBF+IBG 

12750  HAPDAT ( NROW , NCOL ) = ( 83+448# ( IBG/9 )>. AND . SHIFT ( MPDT (IM),IBF) 

12760  IF( (NR0W.EQ.4) .AND. (HAPDAT! 1 ,NCOL) .E8.0) )  GO  TO  40 

12770  IF( (NROW. EQ. 4). AND. (HAPDAT! 1, NCOL). EG. 1. OR. HAPDAT! 1, NCOL). EQ. 41 

12780+  .OR. HAPDAT (2, NCOL) .EG. 1 .0R.MAPDAT(2,fC0L) .EQ.41 ) )  10,20 

12790  10  NCOL=NCOL-i  %  GO  TO  30 

12800  20  IF! (NR0W.EG.4) .AND. ( ISIGN.EG. 1 ) ) HAPDAT (NROW, NCOL )= 

12810+  -MAPDAT! NROW, NCOL) 

12820  30  CONTINUE 

12830  40  NR0W=0  %  NC0L=NC0L-1 

12840  RETURN 
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12850  END 

12860C 
12870C 
12880C 

12890C=====”“”«=«======”  FUNCTION  DET  ======================== 

12900C=====CALCULATE  DETERMINANT 

12910C 

12920  FUNCTION  DET(A11.A12,A13,A21,A22,A23,A31,A32,A33> 

12930  DET =A1 1* { A22*A33-A23*A32 ) -A1 2* ( A2 1 *A33-A23*A31 ) 

12940+  +A13*(A21*A32-A22*A31) 

12950  RETURN 

12960  END 

12970C 

12980C 

12990C 

13000C======================  SUBROUTINE  AVE  =====*================ 

13010C  CALCULATE  AVERAGE  VECTOR  BY  AVE'G  X,Y,Z  COMPONENTS  SEPARATELY. 

13020C 

13030C  inputs: 

13040C  12:  EQUALS  1  OR  2,  FOR  AVERAGING  ONCE  OR  TWICE.  THE  SECOND  AVERAGING 

13050C  BYPASSES  VECTORS  OUTSIDE  THE  STANDARD  DEVIATION  CALCULATED 

13060C  WITH  THE  FIRST  AVERAGE. 

13070C  ARRAYS  X,Y,Z:  INPUTTED  AS  POSITION  COORDINATES  OR  VELOCITY  COMPONENTS. 
13080C  ARRAY  ESQ!  VALUES  FOR  WEIGHTING  FACTOR.  INPUTTED  AS  LEAST  AVERAGE 
13090C  SQUARE  ERRORS  FOR  VELOCITIES.  AS  ARRAY  0NE=1  FOR  POSITIONS. 

13100C  WEIGHT-1  FOR  ESQ.LE.l, 

131 IOC  =1/SQRT(ESQ)  FOR  ESQ.GT.l. 

13120C  NVEC:  NUMBER  OF  VECTORS  INPUTTED,  INCLUDING  ZERO  VECTORS  IF  ANY. 

13130C 


13140C  outputs: 

13150C  AVEX , AVEY , AVEZ . 

13160C  SIG=STANDARD  DEVIATION. 

13170C  AVEES8=AVE  OF  THE  ESQ'S  OF  THE  VECTORS  USED  IN  FINDING  AVEX, AVEY, AVEZ. 
13180C  N I = " NUMBER- INITIAL" =NUMBER  OF  VECTORS  USED  IN  FIRST  AVERAGING. 

13190C  NI=NVEC  IF  NO  INPUTTED  VECTORS  ARE  IDENTICALLY  0.  IF  ANY  VECTORS 

13200C  HAVE  ALL  3  COMPONENTS  ZERO,  THEY  ARE  NOT  INCLUDED  IN  THE  AVERAGE. 

13210C  NF = "NUMBER-FINAL "  =NUMBER  OF  VECTORS  LEFT  AFTER  EXCLUDING  THOSE 

13220C  OUTSIDE  THE  STANDARD  DEVIATION,  I.E.,  NUMBER  OF  VECTORS  USED 

13230C  IN  THE  SECOND  AVERAGING.  IF  AVERAGE  CALCULATED  ONLY  ONCE,  NI=NF. 

13250C 

1 3260  SUBROUT IhC  AVE ( NFREQ , I 2 , XX , YY , ZZ , EESQ , NVEC , AVEX , AVEY , AVEZ , S IG , 

13270+  AVEESQ.NI ,NF> 

13280  DIMENSION  XX<1 ) ,YY( 1 > ,ZZ< 1 ) ,EESQ( 1 > 

13Z90  DIMENSION  X<160) ,Y<160> ,Z< 160) ,ESQ<160> 

13300  DIMENSION  WHTPU60) 

13310CCC  PRINT*,"  " 

13320CCC  PRINT*,"  " 

13330C 

13340  IF(NVEC.EQ.O)  GO  TO  120 

13350C 


227 


DRIFVEL  (ULCAR) 


13360  CALL  MOVL£V(XX( 1 ) ,X(1 ) .NVEC) 

13370  CALL  M0VLEV< YY(1 ) » Y(  1 ) .NVEC) 

13380  CALL  MOVLEV(ZZd) ,Z(1) ,NVEC> 

13390  CALL  MOVLEV ( EESQ ( 1  > ,  ESQ (l)r  NVEC  ) 

13400C 

13410  DO  110  1=1,12 

13420CCC  PRINT*, "I=" , I 

13430  I RETURN =1 

13440  SUMHHTP=0 

13450  NF=SUMNX=SUMHY=SUMHZ=SUMNXSQ=SUMHYSQaSUMNZSQ=SUMHHT=SUMESG=0 

13460C 

13470  DO  10  K=1 .NVEC 

13480  10  WHTP(K)=0.0 

13490C 

1 3500C = = = = =COUNT  NON-ZERO  VECTORS?  DETERMINE  WHTP =UN-NQRMAL I ZED  HEIGHTS 
13510C 

13520  DO  30  J=1 , NVEC 

13530  IF(X(J) .EG.O.O. AND. Y(J) .EQ.O.O.AND.Z(J) .EQ.O.O)  GO  TO  30 

13540  NF=NF+1 

13550  IF(ESG(J).L£.1.0>  WHTP(J)=1. 

13560  IF(ESQ(J).GT.1.0)  MHTP( J)al/SQRT(ESG( J) ) 

13570CCC  PRINT  20,J,HHTP(J) 

13580  20  FORMAT(“WHTP(“, I2,")=",F7.4> 

13590  SUMHHTP=SUMHHTP+HHTP( J ) 

13600  30  CONTINUE 

13610C 

13620  IF(I.EQ.l)  NI=NF 

13630C 

13640C=====FIND  FACTOR  TO  NORMALIZE  HEIGHTS  SO  THEIR  SUM  IS  NF 
13650C 

13660  IF(NF.EG.O)  GO  TO  130 

13670C 

13680  ANORM=NF /SUMHHTP 

13690CCC  PRINT  40 , NF , SUMHHTP , ANORM 

13700  40  FORMAT ("NF, SUMHHTP, ANORM  “,I3,ZF9.3> 

13710C 

13720C=====DETERMINE  NORMALIZED  PARAMETERS  FOR  CALCULATION  OF  AVERAGE  AND 
13730C  SIGMA  (STANDARD  DEVIATION) 

13740C 

13750  DO  60  J=1 ,NVEC 

13760  IF( (X( J) .EQ.O.O) .AND. ( Y( J) .EG.O.O) . AND. (Z( J) .EG.O.O) )  GO  TO  60 

13770  HHT =ANORM*HHTP ( J ) 

13780CCC  PRINT  50, J,X( J) ,Y( J) ,Z( J) ,HHT 

13790  50  F0RMAT(3X,"J=",I2,ZX,MX,Y,Z,HHT  “,4F9.3) 

13800  SUMHX=SUMHX+HHT*X<  J ) 

13810  SUMHY=SUMHY+HHT*Y ( J ) 

13820  SUMHZ=SUMHZ+HHT*Z(J) 

1 3830  SUMHXSQ=SUMHXSQ+HHT*X ( J ) *X ( J ) 

13840  SUMHYS8=SUMHYSQ+HHT*Y ( J ) *Y ( J ) 

13850  SUMUZSQ=SUMHZSQ*HHT*Z(J)*Z(J) 

13860  SUMHHT =SUMHHT+HHT 


r 
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13870  SUMES8aSUMESG+ESG  ( J ) 

13880  80  CONTINUE 

13890CCC  PRINT*, "SUHHHT.NF  " , SUMWHT , NF 

13900C 

13910C=aaaaaa*aaaaa*aaa*aaa**a*aa**aa*aa*aaa*aa*aaaaaaaaaaaaaaaaaaaaaaaa=aaaaaaa 
13920C  SUM(W*X)  where:  m=normalized  weight 

13930C  AVERAGE-X  *  - 

13940C  SUH(W)  SUM(W) =NF 

13950Ca=aa=aaaaaa*aaaaaaaa***aa*aaaaaaa *a=*a ====== a* . . . ====== 

13960C 

13970  AVEX=SUMWX/SUHWHT  »  AVEYaSUMWY/Sl)MWHT  *  AVEZaSUMWZ/SUMWHT 

13980  AVEESQ=SUMESG/NF 

13990CCC  PRINT  80,AV£X,AVEY,AVEZ 

14000  80  FORMAT ( 3X , “AMEX , AVEY , AVEZ  ",3F9.3> 

14010C 

14020  IF(NF.EQ.l)  GO  TO  140 

14030C 

14050C  2 

14060C  2  (SUM(W*X) ) 

14070C  SUH(W*X  )  -  - 

14080C  2  NF 

14090C  X-VARIANCE  =  (SIGMA-X)  =  - 

14100C  NF-1 

14110Ca=aa=a====a=aaa=aaa=a*=*==a===a==a==aa==aa=aa=aaaaaaaaaaaa=a============== 

14120C 

14130  siGxsa=<suMHxs{j-(suMNX**2/suHMHT>  >/<sumwht-i  > 

14140  SIGYSG=(SUMHYS8-(SUMWY**2/SUMMHT>  >/<SUMWHT-l ) 

14150  SIGZSa=(SUMWZSG-(SUMWZ**2/SUNWHT> )/<SUMWHT-l ) 

14160  SIG=S8RT(SIGXSG+SIGYSa+SIGZS8) 

14170CCC  PRINT  9O,SIGXSG,SIGYSQrSIGZS0,SIG 

14180  90  F0RMAT(3X,"SIGXS8>SIGYSGrStGZSG,SIG  ",4F9.3> 

14190C 

14Z00Caaaa=RETURN  AFTER  1ST  AVE'G  IF  12*11  AFTER  2ND, IF  12=2. 

14210C 

14220  IF(I.E8.I2>  RETURN 

14230C 

14240  DO  100  K»1 ,NVEC 

14Z50CCC  PRINT*, *K,X,Y,Z  FOR  XD  " ,K,X(K) ,Y(K> ,Z(K> 

14260  IF(X(K) .EQ.O.O.AND. Y<K) .EG.O.O.AND.Z(K) .EG.0.0)  GO  TO  100 

14270  XD= ( X ( K ) -AVEX ) **2 

14280  YD*(Y(K)-AVEY)**2 

14290  ZD=(Z<K)-AVEZ)**2 

14300  IF< (SORT(XD+YD+ZD) > .LE.SIG)  GO  TO  100 

14310  X(K)=Y(K)=Z<K)=0 

14320  I RETURN a0 

14330CCC  PRINT*,"  ZERO  VECTOR" 

14340  100  CONTINUE 

14350C 

14360C=aaa»IF  12*2,  RETURN  AFTER  1ST  AVE'G  IF  ALL  VECTORS  ARE  WITHIN  SIGMA. 
14370C 
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14380  IF(IRETURN.EQ.l)  RETURN 

143S0C 

14400  110  CONTINUE 

14410  120  NI=NF=0 

14420CCC  PRINT*, "NI=NF=0" 

14430  130  AVEX=AVEY=AVEZ=AVEESQ=0 

14440CCC  PRINT*,"  AVEX=AVEY=AVEZ=AVEESQ=0" 

14450  140  SIG=0 

144B0CCC  PRINT* , "SIG=ZERO" 

14470  RETURN 

14480  END 

14490C 

14500C 

14510C 

14520C======================  SUBROUTINE  VEL  ====================== 

14530C=====CALCULAT£  HORIZONTAL  VELOCITY  COMPONENT  VH,  MAGNITUDE  V, 

14540C  AZIMUTH  AND  ELEVATION. 

14550C 

14560  SUBROUTINE  VEL(VX,VY.VZ,VH,V,AZIM,ELEV> 

14570C 

14580  VH=SGRT( VX*VX+VY*VY ) 

14590  V=SGRT<VH*VH+VZ*VZ) 

14600  IF< (VX.EG.O.O) .AND. (VY.EQ.O.O) )  GO  TO  10 

14610  AZIM=ATAN2 ( VY , VX ) / . 0174532925199433 

14620  IF(AZIM.GT.O.O)  AZIM*360-AZIM 

14630  IFtAZIM.LT. 0.0)  AZIM=-AZIM 

14640  ELEV=ATAN< VZ/VH) I .01 74532925199433 

14650  RETURN 

14660  10  IF(VZ.NE.O.O)  GO  TO  20 

14670  AZIM=ELEV=0  *  RETURN 

14680  20  AZIM=0 

14690  ELEV=90  *  IF(VZ.LT.O.O)  ELEV=-90 

14700  RETURN 

14710  END 

14720C 

14730C 

14740C 

14750C=============*=====  SUBROUTINE  POLMAP  =================== 


14760C  CALCULATE  POLAR  MAP  OF  HORIZONTAL  COMPONENTS  OF  VELOCITY. 

14770C 

14780C  IVY,IVX=Y  AND  X  COMPONENTS  OF  VELOCITY  IN  UNITS  OF  10. 

14790C  IY, IX=THE  CORRESPONDING  ADDRESSES  OF  ARRAY  IMAP,  INTO  WHICH  ARE  STORED 
14800C  THE  SEQLENCE  NUMBERS  (HEXADECIMAL  NUMBERS  1  TO  F,  IDENTIFYING 

14810C  THE  CASES;  OR  NUMBERS  1  TO  9,  LETTERS  A  TO  Z,  IDENTIFYING 

14820C  THE  GROUPS).  EACH  SEQUENCE  NUMBER  IS  AT  THE  POSITION  OF 

14830C  THE  ARROWHEAD  OF  A  VECTOR  WITH  ORIGIN  AT  THE  CENTER  OF  THE 

14840C  MAP.  IF  MORE  THAN  ONE  VECTOR  HEAD  OCCUPIES  ANY  IMAP  ADDRESS, 

148S0C  THE  FIRST  ONE  IS  KEPT  IN  THE  MAP,  THE  OTHERS  ARE  INDICATED  IN 

14860C  AN  "OVERFLOW"  MESSAGE. 

14880C 


230 


DRIFVEL  (ULCAR) 


14890  SUBROUTINE  PQLMAP(KV,KPRINT,KG,VY,VX,IVY,IVX,NM) 

14900  COMMON  MPDT(52) »MAPDAT(4»160) 

14910  C0MM0N/IGA/NN(35) 

14920  DIMENSION  NNN(103),IMAP<103,103) 

14930  DATA  NNN/“  “,"500",9*“  ",“400", 9#*  ",“300“,9*“  *,"200", 9*"  " 

14940+  “100“, 9#“  0  “ ,9*“  “,"100*,9*"  “,"200", 9*"  ","300", 9*"  ", 

14950+  “400", 9*“  “,"500“,“  "/ 

14960C 

14970  IF(NM.EQ.3)  GO  TO  200 

14980  IF1NM.EQ.2)  GO  TO  10 

14990C 

15000C=3sa=  FIRST  CALL 

15010C  DETERMINES  IVY, IVX=VY/10,VX/10  ROUNDED  TO  INTEGERS,  AND  IY,IX 
15020C  TIC  CORRESPONDING  COORDINATES  FOR  IMAP. 

15030C  NEEDED  IF  PRINTING  LIST  ONLY,  OR  LIST  AND  POLAR  MAP. 

15040C 

15050  SY=1  %  IF(VY.LT.O.O)  SY=-1 

15060  SX=1  *  IF1VX.LT. 0.0)  SX=-1 

15070  IVY=IFIX(VY/10.+SY*.5> 

15080  I  VX=  IF  IX  ( VX/ 10 . +SX* . 5 ) 

15090  IF( IABS( IVY) .GT.50)  IVY=50#SY 

15100  IY-52-IVY 

15110  IFdABSlIVX)  .GT.50)  IVXa50*SX 

15120  IX=52-IVX 

15130  RETURN 

15140C 

15150Caaaaa  SECOND  CALL 
15160C 

15170  10  IF ( ( (KPRINT.EQ.34) .AND. (KV.E9.LASTKV) ) .OR. 

15180+  <<KPRINT.NE.34).AND.<KV.NE.1))>  GO  TO  70 

15190C 

15200C=aa=aINITIALIZE  IMAP  (BORDERS)  IF  FIRST  CALCULATION. 

15210C  NEEDED  ONLY  IF  POLAR  MAP  TO  BE  PRINTED. 

15220C 

15230  DO  20  KYal , 103 

15240  DO  20  KX= 1,103 

15250  20  IMAP(KY,KX)="  " 

15260C 

15270  DO  30  KYa2» 102 

15280  30  IMAP(KY,1)*IMAP(KY,52)=IMAP(KY,103)="-" 

15290  DO  40  KY=2,102,10 

15300  40  IMAP(KY,1)=IMAP(KY,52)=IMAP(KY,103)S"+" 

1531 OC 

15320  DO  50  KXS2, 102 

15330  50  IMAP(1 ,KX)*IMAP(52»KX)=IMAP( 103,KX)*"-“ 

15340  DO  60  KX-2,102,10 

15350  60  IMAP( 1 ,KX)=IMAP(52,KX)=IMAP( 103,KX)="+" 

15360C 

15370  IHAP(49, 1 ) *IMAP(49, 103) aIMAP(55, 1 ) aIMAP(55» 103)*"  " 

15380  IMAP(50,1)»"N"  $  IMAP(50,103)="S" 

15390  IMAP<51,l)*IMAP(5i,103)="0" 
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15400 

15410 

15420 

15430 

15440 

15450 

15460 

15470 

15480C 

154900= 

15500C 

15510C 

15520 

15530 

15540+ 

15550 

15560 

15570 

15580 

15590 

15600 

15610 

15620 

15630 

15640C 

156500 

15660C 

15670C 

15680 

15690 

15700 

15710 

15720 

15730 

15740 

15750 

15760 

15770 

15780 

15790 

15800 

15810 

15820 

15830 

15840 

15850 

15860 

15870C 

15880 

15880 

15900 


IMAP(52, 1 )=“R"  *  IMAP(52» 103)=*U" 

IMAP(53,1 )=IMAP(53, 103) =“T“ 

IMAP(54,1)=IMAP<54,103)=“H“ 

IMAPd ,49>=IMAP(103,49)=IMAP( 1 ,54)=IHAP(103»54)=*  ■ 
IMAPd  ,50)= “W“  *  IMAP( 103,51 )=“A" 

IMAP(1 ,51 )=IMAP( 103, 50)=“E“ 

IMAPd, 52>=IMAP(103»52)=“S“ 

IMAP( t ,53)=IMAP( 103,53) =“T" 

=PUT  SEQUENCE  NUMBERS  AT  THE  (IT, IX)  COORDINATES  OF  IMAP, 
OR  PRINT  OVERFLOW  MESSAGE. 


70  LASTKV=KV 

IF( IMAP( I Y. IX) .EG. “  " .OR. IMAP( IY, IX) .EQ. .OR. 

I MAPI IY, IX) .EQ. “+“ )  GO  TO  90 

IF( (KPRINT.AND.24) .EQ.O)  PRINT  80,NN(KG)»IVX,IVY 
IF(KPRINT.EQ.40)  PRINT  80,NN(KG) , IVX, IVY 
IF(KPRINT.EQ.48)  WRITE(49,81)  IVX, IVY,NN(KG> 

80  F0RMAT(2X,A1,37X, "OVERFLOW  AT  IVX=*,I3,“,  IVY=",I3) 

81  FORMAT (97X, “OVERFLOW  AT  IVX=“,I3,“,  IVY=“, I3,5X,A1 ) 
RETURN 

90  IF( (KPRINT.AND.24). EQ.O)  IMAP(IY,IX)=NN(KG) 

IF( (KPRINT.AND.24) .NE.O)  IMAP( IY, IX)=NN(KG) 

RETURN 


=  THIRD  CALL 
PRINT  POLAR  MAP 


110  FORMAT ( ///38X,*H0RIZQNTAL  COMPONENTS  OF  IONOSPHERIC  DRIFT*/) 
120  F0RMAT(49X,*INDIVIDUAL  VELOCITIES*/) 

130  FORMAT (49X,*CASE-N0RM  VELOCITIES*/) 

140  FORMAT ( 49X , *GROUP-NORM  VELOCITIES*/) 

150  FORMAT (SOX, * ALL-FREQ  VELOCITIES*/) 

160  F0RMAT(7X,9(A3,7X) ,A3,1X,“(M/S)",1X,A3) 

180  F0RMAT(4X,A3, 103A1 ,A3) 

200  IF(KPRINT.EG.48>  GO  TO  220 
PRINT  110 

IF(KPRINT.EQ.34)  PRINT  120 
IF(KPRINT.EQ.36)  PRINT  130 
IF(KPRINT.EQ.40)  PRINT  140 
PRINT  160, (NNN( I ) ,1=2,102,10) 

INNN=0 

DO  210  IX= 1,103 
INNN*INNN+1 

210  PRINT  180,NNN( INNN) , ( IMAP( IY, IX) , IY=1 ,103) ,NNN( INNN) 

PRINT  160, (NNN( I), 1-2, 102, 10) 

RETURN 

220  WRITE(49,110)  %  WRITE(49, 150) 

WRITE(49, 160) (NNN( I) , 1=2, 102,10) 

INNN*0 
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15910  DO  230  IXs 1 , 103 

15920  INNN=INNN+1 

15930  230  WRITE(49»180)  NNN< INNN) , ( IMAP< IY, IX) , IY=1 ,103) ,NNN( INNN) 

15940  WRITE(49,160HNNN(I),I=2, 102,10) 

15950  RETURN 

15960  END 

15970C 

15980C 

15990C 

16000C============S=======  SUBROUTINE  GRAPH  =================== 

IB010C 

16020  SUBROUTINE  GRAPH < I SEG , K  HR , KM I N , FREQ , RANG » NUMB , DB » DOPP , 

16030+  NCOL,KASE,NGRP,VH,VZ, AZIN, SIG, ESQ, KPRINT,NUMFREG,KP) 

16040C 

16050  COMMON/ IR7/ IRNG( 7 ) 

16060  COMMON/ IGA/NN( 35) 

16070  COMMON/G/GVELZ ( 6 ) »GVELH(6) ,GVELAZ(6) 

16080  DIMENSION  IAZMTH(73) ,  ISPEED(32) ,  IERR(  112)  ,KW(8)  ,KVE(6> 

16090  DIMENSION  IAZZ<6) , IATMP<6> , IAN (73) , IVZZ<6) , IVZTMP(6> . IVHH(6) . 

16100+  IVHTMP(B) » IMN(32) 

161 IOC 

16120C=====KW  IS  FORMAT  FOR  AZIMUTH-SPEED  GRAPH 

16130C  KVE  IS  FORMAT  FOR  ROOT-MEAN-SQUARE-ERROR  GRAPH 

16140C 

16150  DATA  KW/“(1X,A1,,,»  “I3.2,",,'12.2,'',"I3,J4,“,,,I3»',,BZX,73A1 

16160+  “4Xr31Al»“»”R3)"/ 

16170  DATA  KVE/H(lX»Alr“f “I3.2»"f MI2.2r "r "I3rI4r“ir,,lX»lllAlr“r"R4)“/ 

16180C 

16190  IFIKPRINT.EQ.66)  MINSRC=KP 

16200  IF(IAZMTH(l).EQ.“.“)  GO  TO  40 

16210C 

16220  DO  10  1=2,72 

16230  10  IAZMTHt I  )="  « 

16240  IAZMTH(1)=IAZMTH(73)=". " 

16250C 

16260  DO  20  1=2,32 

16770  20  ISPEED( I )="  " 

16280  ISPEED( 1 )=ISPEED(31 )=" ." 

16290C 

16300  DO  30  1=2,112 

16310  30  IERR(I)="  " 

16320  IERR(1)=IERR(111)="." 

16330C 

16340C============================================"================="======= 

16350C  DEFINE  VARIABLES  AND  GRID  MARKERS  FOR  PRINTING  (OR  PUT  BLANKS ) : 

16360C 

16370C  FOR  K PRINT  4,8,16,  PRINT: 

16380C  SEQ.NO,,HOUR,MIN,FREG, RANGE, NUMB  ON  AZIM-SPEED  GRAPH, 

16390C  WITH  GRID  MARKERS J 

16400C  EXCEPT,  FOR  K PRINT  4,  OMIT  HOUR  AND  HALF  OF  THE  GRID  MARKERS  IF  NOT 

16410C  FIRST  CASE  OF  A  GROUP  (IF  KASE.NE.l). 


233 


DR I FUEL  (ULCAR) 


16420C  NUMB* 

1S430C  niuel:  no.  of  indiuidual  uel.  calculations  per  case  for  kprint  4; 

16440C  nkvel:  no.  of  case-norm  uelocities  per  group  for  KPRINT  8; 

16450C  NFF:  no.  OF  FREQUENCIES  WHICH  HAVE  NON-ZERO  GROUP-NORM  UELOCITIES 
1G460C  FOR  KPRINT  16. 

16470C  FOR  KPRINT  16: 

16480C  IFREQ.IRANG  ARE  THE  DIFFERENCES  BETWEEN  THE  HIGHEST  AND  LOWEST 
16490C  FREQUENCIES  AND  RANGES; 

16500C  MINUTES  ARE  ROUNDED  OUT  TO  NEAREST  2.5  (BUT  SECONDS  ARE  NOT 
16510C  PRINTED,  SO  2*2.5,  7=7.5,  ETC.) 

16520C 

16530C  FOR  KPRINT  2! 

16540C  AT  BEGINNING  OF  EACH  GROUP  OF  CASES  (NGRP.NE.LASTGRP) , PRINT! 

16550C  SEQ. NO., HOUR, MIN, FREQ, RANGE, NUMB(NO. OF  SOURCES)  ON  AZIM-SPEED  GRAPH, 
16560C  SEQ. NO. ,HOUR,MIN,FWPD,DOPP.NO.  ON  ERROR  GRAPH, 

16570C  WITH  GRID  MARKERS  ON  BOTH  GRAPHS. 

16580C  IF  BEGINNING  A  NEW  CASE  (NCOL=l)  BUT  NOT  A  NEW  GROUP, 

16590C  OMIT  THE  HOUR  AND  HALF  OF  THE  GRID  MARKERS. 

16600C  ELSEWHERE  ( NCOL . NE . 1 ) ,  PRINT  ONLY 1 
16G10C  SEQ. NO. , NUMB  ON  AZIM-SPEED  GRAPH, 

16620C  SEQ . NO . , FWPD , DOPP . NO .  ON  ERROR  GRAPH. 

16630C 

16640C  NUMB  COUNTS  ONLY  THOSE  SOURCES  USED  FOR  A  UELOCITY  CALCULATION, SO 
16650C  WHEN  THE  SOURCE  IS  SKIPPED,  NUMB  IS  OMITTED. 

16670C 

16680  40  IF< (KPRINT. AND. 2). NE.O)  GO  TO  70 

16630  LHR=KHR  *  LMIN=KMIN  *  MGRID1=MGRID2=".“ 

16700  I FREQ* I F I X < FREQ/ 1 00+ . 5 )  $  IRANG=IFIX(RANG+.5)  *  KUU{4)=,,I3,I4," 

16710  IF( (KP.NE. 16.AND.KP.NE.99) .OR. ( (NUMB.NE. «  " ) .AND. (NUMB.NE. 1 ) >  >G0T045 

16720  IFREQ=IRANG="  ■  $  KUU(4)=*A3,A4, " 

16730  45  KUU(5)="I3,"  *  IF(NUMB.EQ.“  **>  KUU(5)="A3,“ 

1G740CCC  IDB=IDOPP="  "  ♦  KUE(1)="(5X,A1,1X,“  $  KUE(4)="2A1 ," 

16750  IF( (KPRINT. AND. 4). NE.O)  GO  TO  50 

16760  IF(IAZMTH(18).EQ." .“ )  GO  TO  130  $  GO  TO  SO 

16770C 

16780  50  IF(KASE.EQ.l)  GO  TO  60 

16790  LHR="  "  $  IF(KASE.GT.Z)  GO  TO  130 

16B00CCC  KUE(2)="A3," 

16810  MGRID1*"  "  *  KUU(2>=“A3,"  $  GO  TO  90 

16820C 

16830  60  KUU(2)="I3.2," 

16840CCC  KUE(2)="I3.2,“ 

16850  GO  TO  90 

16860C 

16870  70  KUU(5)="I3,"  ♦  IF(NUMB.EQ.“  ")  KUU(5)="A3,M 

16880  IDOPP=DOPP  *  IDB=DB 

16890  IF(NC0L.GT.2)  GO  TO  130 

16900C 

16910  IF(NC0L.EQ.2)  GO  TO  80 

16820  IFREQ=IFIX(FREQ/100+.5>  *  IRANG=IFIX(RANG+.5) 
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16930  KVV<4)="I3,I4,“  *  LMIN=KMIN  *  KVV(3>=KVE(3>="I2.2, "  *  MGRIDZ=“." 

16940  IF ( NGRP . NE . LASTGRP )  GO  TO  75 

16950  LHR=MGRID1=“  “  *  KW(2)=KVE{2)=“A3, “  $  GO  TO  90 

16960C 

16970  75  MGRID1=“.“  $  LHR=KHR  4  KVV(2)=KVE(2)="I3.2,"  4  GO  TO  90 

16980C 

16990  90  IFREQ=IRANG=“  “  4  KW<4)=nA3,A4," 

17000  fffiRIDl=MGRID2sLHR=LMIN="  “ 

17010  KVV(2)=KVE(2)="A3, “ 

17020  KW<3)=KVE(3)="A2f  “ 

17030C 

17040  90  DO  100  1=1,55,16 

17050  IAZMTH(I)=MGRID2 

17060  100  IAZMTHt I+6)=IAZMTH( 1+12) =MGRID1 

17070  IAZMTH(1)=".“ 

17080C 

17090  DO  110  1=1,21,10 

17100  ISPEED( I )=MGRID2 

17110  110  ISPEED( I+5)=MGRID1 

17120  ISPEED( 1 )=“. " 

17130C 

17140  DO  120  1=1,101,10 

17150  IERR( I )=HGRID2 

17160  120  IERR( I+5)=MGRID1 

17170  IERR(1)=“." 

17190C 

17190C=====PUT  SYMBOLS  INTO  THE  GRAPH  COORDINATES  WHICH  CORRESPOND  TO  THE 

17200C  VALUES  TO  BE  GRAPHED 

17Z10C 

17220  130  LASTGRP=NGRP 

17230  IF((NUMB.EQ."  “ > .OR. ( (KPRINT.EG.G6) . AND. (NUMB.LT.MINSRC) > )  GO  TO  310 

17240C 

17250  IF(KP.NE.99)  GO  TO  270 

17260  DO  140  1=1 ,NUMFREQ 

17270  IAZZ(I)=0 

17280  IF(GVELZ(I ) .EG. "  ■»  GO  TO  140 

17290  IAZZ( I )=IFIX(GVELAZ( I )/5+l .5) 

17300  140  CONTINUE 

17310  NFQ=NUMFREQ-1 

17320  DO  150  1=1, NFG 

17330  11=1+1 

17340  DO  150  J=I1 ,NUMFREQ 

17350  IF ( < IAZZ( I ) .EQ.O) .OR. ( IAZZ( J) .EG.O) )  GO  TO  150 

17360  IF( IAZZ( I > .EG. IAZZ( J) )  GO  TO  160 

17370  150  CONTINUE 

17380  GO  TO  170 

17390  160  CALL  I DENT ( GVELAZ , I AZZ ,NUMFRE9 , 1 ) 

17400  170  DO  180  I=1,NUMFREQ 

17410  IF(GVELZ(I).EG.*  ")  GO  TO  180 

17420  IATMP<I)=IAZMTH(JAZZ(I)) 

17430  IRG=IFIX( (FLOAT! IRNG(I) )-200)/10+.5> 
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17440  IFdRG.EQ.O)  1AZMTH< IAZZ( I ) )="0“ 

17450  IF( IRG.NE.O)  IAZMTHdAZZd )  >=NNdRG> 

17460  180  CONTINUE 

17470C 

17480  DO  180  1=1 rNUMFREG 

17430  IVZZd)=0 

17500  IFIGVELZd )  .EG. "  ")  GO  TO  190 

17510  IF(GVELZ( I ) .LT.O)  IUZZd)=MAX0dFIX(GVELZd)/10-1.5>,-31) 

17520  IF(GVELZd).GE.O)  IVZZd)=MINO< IFIXIGVELZd  >/10+l .5) ,31 ) 

17530  IMZTMPI I ) = I SPEED! IABS( IVZZ< I > ) ) 

17540  190  CONTINUE 

17550  DO  200  1=1 » NUMFREQ 

17580  IVHHd)=0 

17570  IFIGVELZd )  .EQ.M  “)  GO  TO  200 

17580  IMHH( I  )=MINOdFIX(GVELH( I )/10+l .5) ,31 ) 

17590  200  CONTINUE 

17600  DO  210  1=1, NFS 

17610  11=1+1 

17620  DO  210  J=I1 rNUMFREG 

17630  IF ( ( IVHH( I ) .EQ.O) .OR. ( IUHH( J) .EQ.O) )  GO  TO  210 

17640  IFdMHH(I)  .EG.  IMHH(  J) )  GO  TO  220 

17650  210  CONTINUE 

17660  GO  TO  230 

17670  220  CALL  I DENT ( GVELH  r I VHH  r  NUMFREQ r 1 ) 

17680  230  DO  240  1=1, NUMFREQ 

17690  IF(GVELZ( I ) .EG. "  M)  GO  TO  240 

17700  IVHTMP(I)=ISPEED(IVHH(I) ) 

17710  240  CONTINUE 

17720  DO  250  1=1, NUMFREQ 

17730  IF(GVELZ(I).EQ.“  ")  GO  TO  250 

17740  IF(IMZZd).GT.O)  ISPEEDdVZZd ) )=“+“ 

17750  IFdVZZd) .LT.O)  ISPEED(-IVZZd) )  =  “-" 

17760  250  CONTINUE 

17770  DO  260  1=1, NUMFREQ 

17780  IF(GMELZ(I).EQ."  “)  GO  TO  260 

17790  IRG=IFIX(  (FLOATdRNGd)  )-Z00)/10+.5) 

17800  IF(IRG.EQ.O)  ISPEEDdVHHd ) )=H0” 

17810  IF( IRG.NE.O)  I5PEED< IVHH( I ) >=NN( IRG) 

17820  260  CONTINUE 

17830  GO  TO  310 

17840C 

17850  270  IF ( (KPRINT .EG. 66) .OR. (NUMB.LT.2) )  GO  TO  280 

17860  ISIG=MINO< IFIX(SIG/5+l .5) ,73) 

17870  ISTEMP=IAZMTH(ISIG)  $  IAZMTHdSIG)=“+" 

17880  280  IAZ=IFIX(AZIM/5+l .5) 

17890  IATEMP=IAZMTH(IAZ>  *  IAZMTH(IAZ)="#" 

17900C 

17910  IF(VZ.LT.O)  IVZ=MAX0(IFIX(MZ/10-1.5) ,-31 ) 

17920  IF(VZ.GE.O)  IMZ=MIN0dFIX<VZ/10+l  .5)  ,31 ) 

17930  IVH=MINO< IFIX(VH/10+1 .5) ,32) 

17940  IVZTEMP=ISPEED( IABS( IVZ) )  *  IVHTEMP=ISPEED< IVH) 
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17950  IF(IVZ.LT.O)  ISPEED(-IVZ)="-“  %  IF(IVZ.GT.O)  ISPEEDdVZ )=■♦" 

17960  ISPE£DdVH)  =  *#“ 

17970  IFdMH.NE.32)  GO  TO  300 

17980  IVH100=MIN0((IFIX(VH/100+.5)>,999) 

17990  ENCODE ( 10,290, ISPEED ( IVH) )  IVH100 

18000  290  FORMAT(IIO) 

18010C 

18020  300  IF(KPRINT.N£.6S)  GO  TO  310 

18030  IE=HINO( ( IFIX( SORT (ESQ )+l .5) ) > 112) 

18040  IETEMP=IERR(IE)  *  IERR(IE)=*#“ 

18050  IF(IE.NE.112)  GO  TO  310 

18060  IERR100=MIN0( ( IFIX(ESQ+.5) ) .9999) 

18070  ENCODE( 10.290, IERR(IE))  IERR100 

18080C 

18090  310  IF(KP.E8.16)  GO  TO  320 

18100  IF(KP.E8.99)  GO  TO  330 

18110  MRITE(69rKVV)  I SEQ » LHR , LM IN , I FRES » I RANG . NUMB . I AZHTH , I SPEED 

18120  IF(KPRINT.EQ.66)  UR1TE(70.KVE)  ISEQ.LHR.LMIN. IDB. IDOPP, IERR 

18130  GO  TO  340 

18140  320  WRITE(71,KW)  ISEQ.LHR.LMIN, IFREQ, I RANG .NUMB. I AZHTH, ISPEED 

18150  GO  TO  340 

18160  330  WRITE(72»KW)  ISEQ.LHR.LMIN, IFREQ, I RANG .NUMB. I AZHTH, ISPEED 

18170CCC  HRITE(72,KVE)  ISEQ.LHR.LMIN, IDB, IDOPP, IERR 

18180  340  IFdNUMB.EQ."  ") .OR. ( (KPRINT.EQ.66) .AND. (NUHB.LT.MINSRC) > )  RETURN 

18190  IF(KP.EQ.99)  GO  TO  350 

18200C 

18210  I AZHTH (I AZ ) = I ATEHP  *  ISPEEDdVH)  =  IVHTEMP 

18220  IF (KPRINT.EQ.66) IERR (IE) =IETEMP  %  ISPEED(IABSdVZ) )=IVZTEMP 

18230  IF( (KPRINT.NE.66) .AND. (NUMB.GT. 1 ) )  IAZMTH(ISIG)=ISTEMP 

18240  RETURN 

18250C 

18260  350  DO  360  1=1 .NUHFREQ 

18270  IF(GVELZ(I).EQ."  •)  GO  TO  360 

18280  IAZMTH( IAZZ( I ) )=IATMP( I ) 

18290  ISPEED(IABS( IVZZd ) ) )=IMZTMP( I > 

18300  ISPEED( IVHH( I ) )=IMHTMP( I ) 

18310  360  CONTINUE 

18320  RETURN  $  END 

18330C 

1B340C 

18350C 

18360C==================  SUBROUTINE  ALLFREQ  ================== 

18370C  FINDS  AVERAGE  (OR  MEDIAN)  OF  GROUP-NORM  VELOCITIES  FOR  ALL  FREQUENCY 
18380C  NUMBERS.  EACH  RUN  WRITES  ON  TAPE49  THE  GROUP-NORM  VELOCITIES 
18390C  CALCULATED  FROM  THE  INPUT  DATA  ON  TAPE50  (DATA  FOR  ONE  FREQUENCY 
18400C  NUMBER)  PLUS  THE  VELOCITIES  FROM  OTHER  FREQUENCY  NUMBERS  ALREADY 
18410C  STORED  ON  TAPE48,  IF  ANY.  IN  THE  LAST  RUN  (WEN  DATA  OF  LAST  FREQ.  NO. 
18420C  IS  BEING  RUN)  THE  SUBROUTINE  CALCULATES  THE  AVE.  OR  MEDIAN  OVER  ALL 
18430C  FREQ.  NO.  'S,  AND  WRITES  THE  RESULT  ON  TAPE49,  WITH  THE  POLAR  MAP  IF 

18440C  REQUESTED,  AND  WRITES  THE  GRAPHS,  IF  REQUESTED,  ON  TAPES  71  AND  72. 

1B450C  AT  THE  END  OF  A  RUN,  IF  NOT  ALL  FREQUENCY  NUMBERS  HAVE  BEEN  RUN,  BE  SURE 
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18460C  TO  RENAME  TAPE48=TAPE49  TO  USE  TAPE48  <AS  WELL  AS  TAPESO)  AS  INPUT  FOR 

18470C  THE  RUN  AT  THE  NEXT  FREQUENCY  NUMBER.  (FREQUENCY  NUMBERS  DQN"T  HAVE 
18480C  TO  BE  RUN  IN  ORDER.) 

18500C 

18510  SUBROUTINE  ALLFREQ ( K PR INT » NGRP » NGRPDAT . NGRPHR , NGRPMIN » NGRPSEC . GVX , 

18520+  GVY , GMZ  , FREQ , RANG , NUMFREQ , NFREG ,  ONE  » ICV » ICV3  »  I FHEAD » LASFREQ  ,  NFVEL ) 

18530C 

18540C=====NUMFREQ=THE  TOTAL  NUMBER  OF  FREQUENCIES; 

18550C  NFREQ=THE  ACTUAL  FREQ.  NO.  FOR  THIS  RUN. 

18560C 

18570  COMMON/IR7/IRANGO) 

18580  COMMON/ IGA/NN( 35) 

1 8590  COMMON/G/GVELZZ ( 6 ) . GVELH ( 6 ) . GVELAZ ( 6 ) 

18600  DIMENSION  GVELX(S) .GVELY(G) ,GV£LZ(6> ,KVD<13) ,KVH(24) 

18610  DIMENSION  GFREQ(7) ,MHZ(7) ,KM(7) .KFRC22) 

18620C 

1 8630C =K VH=FORMAT  FOR  HEADING?  KMDI  FOR  DATA?  KFR:  FOR  FREQ  AND  RANGE. 
18640C 

18650  DATA  KVH/"</////44X.“."4X,","*GR0UP*,“,"  *-N0RM  "."VELOCITIES", 

18660+  “*,34X, */*,“."  *  AVE  "."OR  MED  OF  ","ALL*/101X,","2X.“, 

18670+  “*/* , 6X , “ » "*FREQUENCI " . "ES*/9X . " . "2X , “ » "6( " , "*  /  FREQ.". 

18680+  "  NO.*, 12).“,"*  /*»25X"»"/2X,"»"*DATE  TIM","E*,7(*  /  V", 

18690+  "X  VY  V"»“Z*) ,*  SIGH", "A  NI  NF*)"/ 

18700C 

18710  NGT I ME =NGRPHR* 1 OOOO+NGRPM I N* 1 OO+NGRPSEC 

18720  IF<KPRINT.EQ.48>  KVH<19)=«,*SEQ»/2X," 

18730C 

18740  KVD(1)=“(1X,"  *  KVD(2)="I5,1X,"  *  KVD(3)="I6.6, " 

18750  DO  4  K=4,10 

18760  4  KVD(K)=“3F5,“ 

18770  KVD(11)="F5,"  *  KVD(12)=*2I3r"  %  KVD(13)="IX,A1,1X)" 

18780C 

18790  KFR(1 )="<7X, 16.6," 

18800  DO  6  K=2,20,3 

18810  KFR(K)=“F4. 1 ,A3,“  ♦  KFR(K+1 >="I5,A2," 

18820  6  KFR(K+2)="1X, " 

18830  KFR(22)=“>" 

18840C 

18850  LASFREQ=KDATE=KT I ME  SN IF =NFF =0 

18860  DO  5  K=1 ,6 

18870  MHZ(K)=KM(K)S"  " 

18880  5  GVELX ( K ) =GVELY ( K ) =GVELZ ( K ) =GFREQ ( K ) = IRANG ( K ) =0 

18890  FVX=FVY=FVZ=FSIG*GFREQ(7)=IRANG(7>=0  *  MHZ(7)=KM(7)="  " 

18900C 

18910C=*s==ADVANCE  TAPE48  BEYOND  HEADING?  WRITE  HEADING  ON  TAPE49. 

18920C 

18930  IFdFHEAD.EQ.l  >  GO  TO  60 

18940  20  FORMAT (A6) 

18950  21  READ(48,20)  IREAD 

18960  IF(E0F(48))Z5,24 
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18970C 

18980  24  IFUREAD.NE."  DATE" )  21.35 

18990  25  E0F483!.  $  GO  TO  30 

19000  35  EQF48=0. 

19010  30  WRITE(49,KVH)  (N,N=1,6) 

19020  IFH£ADS1 

19030C 

19040  60  DO  61  K31»NUMFREQ 

19050  61  GV£LZ(K)=999. 


19060C 

19070C=====READ  DATE. TIME, AND  DATA  FROM  TAPE 48 
19080C 

19090  62  IF(E0F48.EQ.l.)  GO  TO  100 

19100  READ(48»KVD)  KDATE,KTIME,(GVELX(K) .GVELY(K), 

19110+  GVELZ(K) »K=1 ,6) .FVX.FVY.FVZ.FSIG.NIF.NFF 

19120  IF(E0F<48) >65.65 

19130  65  READ(48,KFR)KTIME» (GFREQ(M) ,MHZ(M) . IRANG(M) .KM(M> .M=l»7) 

19140  IF(E0F(48> >68.70 

19150C 

19160  68  E0F48= 1 . 

19170  GO  TO  100 

19180C 

19190C=====IF  DATE  AND  TIME  FROM  TAPE48  DON'T  MATCH  THOSE  OF  THIS  GROUP. 
19200C  READ  NEXT  RECORD. 

19210C 

19220  70  IF< (NGRPDAT.NE.KDATE) .OR. (NGTIME.NE.KTIME> )  GO  TO  62 

19230C 

19240CCC  PRINT  75.KDATE.KTIME.NGRPDAT.NGTIME 

19250CCC  75  FORMAT ( *  DATE  AND/OR  TIME  DO  NOT  MATCH.  TAPE48  IS  AT  ", 

19260CCC+  15, IX. 16.6,/"  AND  THIS  RUN  IS  AT  ", 

19270CCC+  15, IX. 16. 6,".") 

19280CCC  STOP 

19290C 

19300C=3333PUT  VELOCITIES  CALCULATED  IN  THIS  RUN  INTO  ARRAYS  GVELX,  ETC. 
19310C 

19320  100  SX31. 

19330  SY=1. 

19340  IF(GVX.NE.O. )  SX=GVX/ABS(GVX) 

19350  IF(GVY.NE.O.)  SY=GVY/ABS(GVY) 

19360  GVELX(NFREQ)3AMIN1 (999. .ABS(GVX) >*SX 

19370  GVELY(WREQ>=AMIN1 (999. .ABS(GVY) )*SY  %  GVELZ ( NFREQ >  =GVZ 

19380  IF(GVX.E8.0.0.AND.GVY.EG.0.0.AND.GVZ.EQ.0.0>  GO  TO  105 

19390  GFREG(NFREG >  =FREG/1000  %  MHZ (NFREQ) 3 "MHZ- 

19400  IRANG(ICRE8>=IFIX(RANG+.5>  *  KM(NFREQ)="KM" 

19410C 


19420  105  DO  110  K31,NUMFR£G 

19430  110  IF(GVELZ(K) .EQ.999. >  GO  TO  130 

19440C 

19450C33333IF  ALL  FREQUENCIES  HAVE  BEEN  RUN,  FIND  MEDIAN  OR  AVERAGE. 

19460C  NFVEL  COUNTS  THE  NUMBER  OF  GROUPS  THAT  HAVE  A  GROUP-NORM  VELOCITY 
19470C  FOR  AT  LEAST  ONE  FREQUENCY  NUMBER. 
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19480C 

19490  LASFR£Q=1 

19500  00  TO  (111,112,113)  ICO 

19510  111  CALL  MED I AN<  GVELX , GVEL  Y , GVELZ , ONE , NUMFREQ , FOX , FVY , FVZ , FS IG , DUM , NFF ) 

19520  GO  TO  114 

19530  112  CALL  MED I AN ( GVELX , GVEL Y , GVELZ , ONE , NUMFREQ , FVX ,  FV  Y » FVZ , FS I G , DUM , NFF ) 

19540  GO  TO  114 

19550  113  CALL  AVE ( NFREG , I CV3 , GVELX , GVEL  Y , GVELZ , ONE , NUWREQ , FVX , FVY , FVZ , 

19560+  FSIG,DUM.NIF,NFF> 

19S70C 

19580  114  DELFREQ=DELRANG=0. 

19590  IF(NFF.EQ.O)  GO  TO  120 

19600  NFVEL=NFVEL+1  *  FREGMAX=MAXRANG=0  $  FREQM IN=M I NR ANG=9999 

19610  DO  116  M=l, NUMFREQ 

19620  IF<GFR£Q(M) .EQ.O. )  GO  TO  118 

19630  FREQMAX=AMAX1 (GFREQ(M) rFREQMAX) 

19640  FREQMIN=AMIN1(GFREQ(M),FREQMIN) 

19650  MAXRANG=MAXO( IRANG (M ) , MAXRANG ) 

19660  MINRANG=MINO( IRANG(M) , MINRANG) 

19670  118  CONTINUE 

19660  DELFREQ=GFRE8 ( 7 ) =FREQMAX-FREQMIN 

19690  DELFREQ=DELFREQ*1000 

19700  IRANG(7) =MAXRANG-MINRANG 

19710  DELRANG= IRANG ( 7 ) 

19720  MHZ(7)="MHZ"  *  KM(7)*"K«- 

19730C 

19740  IF(KPRINT.EQ.48>  CALL  P0LMAP(IDUM,KPRINT,NGRP,FVY,FVX,IVY,IVX,1) 

19750C 

19760  120  IF( (KPRINT. AND.64) .EQ.O)  GO  TO  130 

19770  CALL  VEL(FVX,FVY,FVZ,FVH,FV,FAZ,FEL)  *  IFSEG=NN(NGRP) 

19780  NFFF=NFF  $  IF(NFFF.EQ.O)  NFFF="  " 

19790  CALL  GRAPH(IFSEQ,NGRPHR,NGRPMIN,DELFREQ,DELRANG,NFFF,DUM,DUM1 , 

19800+  IDUM,IDUM1,NDUM,FVH, FVZ, FAZ,FSIG,DUM2, KPRINT, IDUM2, 16) 

19810CCC  IF( NUMFREQ. GT. 3)  GO  TO  130 

19820  IF(NFFF.EQ."  -)  GO  TO  128 

19830  DO  126  1=1, NUMFREQ 

19840  GVELH( I ) =SGRT ( GVELX ( I ) **2+GVELY (I)**2) 

19850  IF( (GVELX( I ) .EQ.O. ) .AND. (GVELY( I ) .EQ.O. ) )  GO  TO  125 

1 9860  GVELAZ ( I ) =ATAN2 ( GVEL Y ( I > , GVELX ( I ) > / . 01 745329251 99433 

19870  IF(GVELAZd).GT.O.O)  GVELAZ(I)=360-GVELAZ(I) 

19880  IF(GVELAZd).LT.O.O)  GVELAZ ( I ) --GVELAZ < I ) 

19890  GO  TO  126 

19900  125  GVELAZ (I )=0. 

19910  126  CONTINUE 

19920  DO  127  1=1, NUMFREQ 

19930  GVELZZ ( I ) =GVELZ ( I ) 

19'  140  127  IF( ( GVELX ( I ) .EQ.O. ) .AND. <GVELY< I ) .EQ.O. ) .AND. (GVELZ < I ) .EQ.O. ) ) 

19950+  GVELZZd)8*  " 

19960CCC  GVELZZ(4)=FVZ  *  GVELH(4)=FVH  »  GVELAZ(4)=FAZ 

19970  128  CALL  GRAPH ( I FSEQ , NGRPHR , NGRPMIN , DELFREQ , DELRANG , NFFF , DUM , DUM 1 , 

19980+  IDUM, IDUM1 ,NDUM,FVH, FVZ, FAZ,FSIG,DUM2, KPRINT , NUMFREQ, 99) 
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19990C 

20000C ===== PREPARE  VARIABLES  FOR  OUTPUT  (PUT  BLANKS  IF  APPROPRIATE. 

20010C  AND  RE-DEFINE  FORNAT  IN  CONSEQUENCE;  PUT  BLANKS  FOR  SIGMA  UNLESS 
20020C  ALL-FREQ  VEL  IS  AN  AVE  OR  MEDIAN  OF  AT  LEAST  2  GROUP-NORM  VELOCITIES) 
20030C 

20040  130  DO  140  Ma1.6 

20050  IF ( (GVELX(M) .NE.O. ) .OR. (GVELY(M) .NE.O. ) .OR. (GVELZ(M) .NE.O. ) ) 

20060+  GO  TO  140 

20070  GVELX(M) =GVELY(M)aGVELZ(M) =GFREQ(M)a"  " 

20080  MHZ(M)=IRANG(M)=KM(M)="  " 

20090  KVD<M+3)="3A5f“  *  KFR(3*M-1 >a"A4,A3. M  *  KFR(3*M)a*A5.A2. “ 

20100  140  CONTINUE 

201 IOC 

20120  IF(NFF.NE.O)  GO  TO  150 

20130  FVX=FVY=FVZ="  " 

20140  KVD(10)="3A5.“ 

20150  150  IF(NFF.GT.l)  GO  TO  160 

20160  MHZ(7)=IRANG(7)*KM<7)=,‘  *  *  GFREQ(7)=*  " 

20170  KFR(20)a"A4,A3."  $  KFR(21 )="A5.A2." 

20180C 

20190  160  IF(NFF.GT.l)  GO  TO  170 

20200  FSIG=*  "  *  KVD(11)="A5," 

20210C 

20220CaaaaaWRITE  DATE.  TIME.  VELOCITIES.  ETC  ON  TAPE 49 I  ALSO  SEQUENCE 
20230C  NUMBERS  (1-9, A-Z)  IF  WRITING  POLAR  MAP  (KPRINT  32) 

20240C 

20250  170  ISEG="  “ 

20260  IF( (KPRINT. AND.32). NE.O)  ISEQaNN(NGRP) 

20270  WRITE(49,KVD)NGRPDAT .NGTIME. (GVELX(M) .GVELY(M) , 

20280+  GVELZ(M) ,M=1.6) .FVX.FVY.FVZ.FSIG.NIF.NFF, ISEQ 

20290  WRITE! 49. KFR)NGTIME. (GFREQ(M) .MHZ(M) . IRANG(M) ,KM(M) .M*l .7) 

20300  IF( (NFF.NE.O) . AND. (LASFREQ.EQ.l > .AND. (KPRINT. EQ. 48) ) 

20310+  CALL  P0LMAP(NFVEL,KPRINT,NGRP.DUM.DUM1,IVY,IVX.2> 

20320  IF(LASFREG.EQ.l)  WRITE(49.180> 

20330  180  FORMAT ("  ") 

2»340C 

20350C 

20360  RETURN 

20370  END 

20380C 

20390C 

20400C 

Z04l0C=asSBa=sas==as=ss==  SUBROUTINE  MEDIAN  =================== 

20420C 

20430  SUBROUTINE  M£DIAN(VX.VY,VZ.ESQ.NC. VXMED.VYMED. VZMED.SIG.ESQOUT , 

20440+  KOUNT) 

20450C 

20460  DIMENSION  VX(1) ,VY(1 ) .VZ(1 ) .ESQ( 1 ) 

20470  DIMENSION  VXTEMP(60) .VYTEMP(60) ,VZTEMP(60) 

20480  DIMENSION  IVXWHT(60) . IVYWHT(SO) . IVZWHT(60) 

20490  DIMENSION  VXESQ(60) ,VYESQ(60) .VZESQ(SO) 
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20500C 

20510CCC  PRINT*,"  * 

20520CCC  PRINT*,"VX,VY»VZ»ESQ* 

20530CCC  PRINT  200,(VX<I),I*1,NC) 

2O540CCC  PRINT  200,<VY<I),I*1,NC> 

20550CCC  PRINT  200, <VZ< I) . 1*1 .NC> 

20560CCC  PRINT  200, (ESQ(I ) , 1*1 ,NO 

20570  200  FORMAT! 16F8.1) 

20580C 

20590C***==NC  INDICATES  HOW  MANY  VECTORS  (SOME  OF  WHICH  NAY  BE  ZERO)  ARE  IN 
20600C  ARRAYS  VX,VY,VZ,ESQ 
206 IOC 

20620  IF(NC.LE.60)  GO  TO  10 

20630  PRINT*,"  ARRAYS  VXTEMP.  ETC.,  NOT  LARGE  ENOUGH.*  $  STOP 

20640C 

20650  10  IF(NC.EQ.O)  GO  TO  60 

20660C 

20670  DO  5  1=1,60 

20680  IVXWHT (I )= ! VYWHT ( I ) * IVZNHT (I) *0 

20690  5  VXTEMP! I ) =VYTEMP( 1 ) *UZTEHP( I ) =0. 

20700C 

20710C=====PUT  NON-ZERO  VECTORS  (VX.VY.VZ)  AND  THEIR  ESQ'S  AND  WEIGHTS  INTO 
20720C  ARRAYS  VXTEMP, ETC.  MAXIMUM  WEIGHT  WT  IS  1,  ALL  WT'S  BEING  1  IF  ESQ 
20730C  IS  INPUTTED  AS  "ONE*  WHEN  SUBROUTINE  IS  CALLED!  I VXWHT, ETC. = WEIGHTS 

20740C  ROUNDED  OUT  TO  INTEGER  AFTER  MULTIPLICATION  BY  10000. 

2075 OC 

20760  K0UNT=ISUMWHT=0 

20770  DO  20  1=1. NC 

20780  IF< (VX( I ) .EQ.O. ) .AND. (VY(I) .EQ.O. ) .AND. (VZ( I) .EQ.O. ) )  GO  TO  20 

20790  KOUNT “KOUNT+1 

20800  VXTEMP (KOUNT)*VX( I) 

20810  VYTEMP(KOUNT)*VY< I ) 

20820  VZTEMP ( KOUNT ) *  VZ  < I ) 

20830  VXESQ( KOUNT ) =VYESQ ( KOUNT ) =VZESQ( KOUNT ) =ESG< I ) 

20840  WT=AMIN1 ( 1 . , ( 1/ ( SORT (ESQ ( I >*.00000001 ) ) ) ) 

20850  IVXWHT (KOUNT )*IVYWHT (KOUNT) =IVZNHT!KQUNT)*IFIX! (WT*10000)+.5) 

20860  ISUMWHT=ISUHWHT+IVXWHT<KOUNT> 

20870  20  CONTINIC 

208B0C 

20890CCC  PRINT* , "VXTEMP , VYTEMP , VZTEMP* 

20900CCC  PRINT  200, (VXTEMP( I ) , 1=1 ,NC) 

2O910CCC  PRINT  200,(VYTEMP(I),I*1.NC) 

2O920CCC  PRINT  200,(VZTEMP(I),I*1,NC) 

20930CCC  PRINT  220,ISUMWHT,(IVXHHT(I),I*1,NC> 

20940  220  FORMAT ( * ISUMWHT  * , I8/"WEIGHTS"/16IB> 

20950C 

20960  IF(KOUNT.EQ.O)  GO  TO  60 

20970  IF(KQUNT.EQ.l)  GO  TO  50 

20980C 

20990C  *  * = = “SEPARATELY  SORT  VX.VY.VZ  INTO  DESCENDING  ORDER,  KEEPING  TRACK 
21000C  OF  THEIR  LEAST  SQUARE  ERRORS  AND  WEIGHTS. 
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21010C 

21020  CALL  VSORT! VXTEMP, VXESQ, IVXHHT ,K0UNT ) 

21030  CALL  VSORT < VYTEMP » VYESG , IVYHHT » KOUNT ) 

21040  CALL  VSGRT!VZTEMP,VZESG,IVZHHT rKOUNT) 

21050C 

21060CCC  PRINT*, "SORTED  V*TEMP,V*ESG, IV*HHT,  *=X,Y,Z" 

21070CCC  PRINT  200, (VXTEMP! I), 1=1, NC) 

21080CCC  PRINT  200, (VXESQ! I > ,1=1, NC) 

21090CCC  PRINT  230.(IVXHHT(I),I=i,NC> 

21100CCC  PRINT  200, (VYTEMP! I ) , 1=1 ,NC) 

2U10CCC  PRINT  200,  (VYESG!  I) ,1=1 ,NC) 

21120CCC  PRINT  230,<IVYHHT(I),I=1,NC) 

21130CCC  PRINT  200,<VZTEMP(I>,I=1,NC> 

21140CCC  PRINT  200, (VZESQ! I ) , 1=1 ,NC) 

2U50CCC  PRINT  230, (IVZHHT(I) , 1=1 ,NC> 

21160  230  FORMAT! 1618) 

21 170CCC  PRINT*, "KOUNT=", KOUNT 

21180C 

21190C=====FIND  THE  MIDDLE  VALUE  OF  THE  SUM  OF  THE  HEIGHTS.  FIND  MEIGHTED 
21200C  OR  UNHEIGHTED  MEDIANS  FOR  VX,VY,VZ  SEPARATELY.  (SEE  COMMENTS  IN 
21210C  SUBROUTINE  HHTMED) 

21220C 

21230  CENTER =FLQAT ( ISUMHHT >/2*.5 

21240  MID=MID1=IFIX(CENTER) 

21250  IF(FLOAT(MID).NE. CENTER)  MID1=MID1+1 

21260C 

21270  CALL  HHTMED! VXTEMP,VXESG, I VXHHT, HID, MIDI ,MXMED,ESQX, KOUNT) 

21280  CALL  HHTMED! VYTEMP, VYESQ, IVYHHT,MID, MIDI ,VYMED,ESQY, KOUNT) 

21290  CALL  HHTMED (VZTEMP,VZESQ, IVZHHT, MID, MIDI ,VZMED,ESQZ, KOUNT) 

21300  ESQOUT = ( ESQX+ESQY+ESOZ ) /3 

21310C 

21320C=====  2  KOUNT  2 

21330C  X-VARIANCE  =  (SIGMA-X)  =  SUM  HX( I >*(VX( I )-VXMEDIAN) 

21340C  1=1 

21350C  - 

21360C  KOUNT- 1 

21370C  HHERE  HX(I)  IS  THE  HEIGHT  NORMALIZED  SO  THAT  THE  SUM  OF  THE 

21380C  HEIGHTS  EQUALS  KOUNT. 

21390C 

21400  HX=HY=HZ=0 

21410  ANORM=FLOAT(KOUNT) /FLOAT! ISUMHHT) 

21420  SIG=SIGXSQ=SIGYSQ=SIGZSQ=0 

21430  DO  70  1=1, KOUNT 

21440CCC  PRINT*, "I=", I 

21450  H=ANORM*FLOAT ( IVXHHT ( I ) ) 

21460  HX=HX+H 

21470CCC  PRINT*, "H.VXTEMP! I )  " ,H,VXTEMP( I ) 

21480  SIGXSQ=SIGXSQ+H*( (VXTEMP! I )-VXMED)**2) 

21490  H=ANORM*FLOAT ( IVYHHT ( I ) ) 

21500  HY=HY+H 

21510CCC  PRINT*, "H, VYTEMP! I)  “ ,H, VYTEMP! I > 
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21520  SIGYSG=SIGYSG+H*<  < VYTEMP1 I ) -VYMED >**2> 

2 1 530  I4=ANQRM*FL0AT  < IVZWHT (I)) 

21540  WZ=WZ+W 

21550CCC  PRINT*,“W,VZTEMP(I)  " ,W,VZTEMP< I ) 

21560  70  SIGZSQsSIGZSG+M*( (VZTEMPI I )-VZMED)**2) 

21570CCC  PRINT*, "NX, WY,WZ, KOUNT  ",MX,WY,MZ,K0UNT 

21580  SIGXSQ=SIGXSQ/(K0UNT-1> 

21590  SIGYSG=SIGYSG/<K0UNT-1) 

21 600  SIGZ5Q-SIGZSQ/ (K0UNT-1 > 

21610  S1G=SGRT(SIGXSG+SIGYSG+SIGZSG) 

21620CCC  PRINT*, "SIGIXSQ, YSG.ZSQl  SIG  " 

21630CCC  PRINT*, SIGXSG.SIGYSQ.SIGZSG, SIG 

21640C 

21650CCC  PRINT  210, VXMED , VYMED , VZMED , ESGOUT , S I G , KOUNT 

21660  210  FORMAT ( " VXMED , VYMED , VZfO , ESGOUT , S IG , KOUNT  *,5F8.1,I4) 

21670  RETURN 

21680C 

21690C=SS=SIF  ONLY  ONE  VECTOR,  IT  BECOMES  THE  MEDIAN. 

21700C 

21710  50  VXMED=VXTEMP< 1 1  $VYMED*VYT£MP( 1 )  »VZMED=VZTEMP(1 >  $ESG0UT=VXESG(1) 

21720  SIG=0 

21730CCC  PRINT  210, VXMED, VYMED, VZMED, ESGOUT, SIG, KOUNT 

21740  RETURN 

2j  750C 

21760  60  VXHED=VYMED=VZMED=ESQQUT =SIGsO 

21770CCC  PRINT  2 10, VXMED, VYMED, VZMED, ESGOUT, SIG, KOUNT 

21780  RETURN 

21 790  END 

21800C 

21810C 

21820C 

21830C====================  SUBROUTINE  VSORT  ========*====*====== 

21840C  SORT  V,E,IHHT  INTO  DESCENDING  ORDER  OF  V. 

21850C 

21860  SUBROUTINE  VSORT(V,E,IMHT,ILAST) 

21870C 

21880  DIMENSION  V( 1 ) ,E( 1 ) » INHT( 1 ) 

21890C 

21900  IEND=ILAST-1 

21910  10  IFAGAIN=0 

21920  DO  20  Isl, IEND 

21930  IF{V(I).GE.V(I*1))  GO  TO  20 

21940  IFAGAINS1 

21950  TEMP*V(I)  4  V(I)=V(I+1)  *  V<I+1)=TEMP 

21960  TEMPSE(I)  ♦  E(I)=E(I+1>  $  E(I+1)=TEHP 

21970  ITEMP=IHHT<I>  »  IHHT< I)»IMHT(I+l )  *  IHHT(I+1)»ITEMP 

21980  20  CONTINUE 

21990  IF(IFAGAIN.EG.l)  GO  TO  10 

22000C 

22010  RETURN 

22020  END 


244 


DRIFVEL  (ULCAR) 


22030C 

22040C 

22050C 

22060C*=as= . ==»«====  SUBROUTINE  NHTNED  ================== 

22070C  FIND  WEIGHTED  MEDIAN  VMED  < VMED =UNWE I GHTED  MEDIAN  IF  ALL  WEIGHTS  ARE 
22080C  EQUAL)  AND  ITS  LEAST  SQUARE  ERROR  ESQV. 

22090C  CONSIDER  WEIGHT  AS  "FREQUENCY  OF  OCCURRENCE"  OF  A  VALUE.  MID=MID1  IS 
22100C  THE  MIDDLE  NUMBER  OF  THE  SUM  OF  THE  FREQUENCIES  (WEIGHTS)  IF  THERE  ARE 
22110C  AN  ODD  NUMBER  OF  VALUES  (EACH  OCCURRENCE  OF  A  VALUE  BEING  CONSIDERED  A 
22120C  DIFFERENT  VALUE).  MID, MIDI  ARE  THE  TWO  MIDDLE  NUMBERS  IF  THERE  ARE  AN 
22130C  EVEN  NUMBER  OF  VALUES. 

22140C  VMED=VMED(MID)  IF  MID-MIDI!  VMED=AVERAGE  OF  VMED(MID) ,VMED(MID1 )  IF  NOT. 
22150C  SIMILARLY  FOR  ESQV. 

22160C==aa=aaa=a=aa=aaaa==aaaaaaa==a=aa==aaaaaaaa=aa=a======a====aaa===a======== 

22170C 

22180  SUBROUTINE  WHTMED(V, ESQ, IWHT, MID, MIDI , VMED, ESQV, KQUNT) 

22190C 

22200  DIMENSION  V(1),ESQ(1),IWHT(1) 

222 IOC 

22220CCC  PRINT*, "MID, MIDI  ",MID,MID1 

22230  ISUHWHT=0  $  VHED1=99999. 

22240  DO  10  1=1 ,KOUNT 

22250  ISUMWHT=ISUMWHT+IWHT<I) 

222S0CCC  PRINT* , " ISUMHHT= " , ISUMWHT 

22270  IFIVMED1  .NE. 99999. )  GO  TO  5 

22280  IF ( ISUMWHT .LT. MID )  GO  TO  5 

22290  VM£D1=V(I)  4  £SQ1=ESQ(I) 

22300  5  IF< ISUMWHT. LT.MIDl)  GO  TO  10 

22310  VHED2=V( I )  $  ESQ2=ESQ(I) 

22320CCC  PRINT*, "VMED1 ,ESQt,VMED2,ESQ2  " , VMED1 , ESQ1 , VMED2 , ESQ2 

22330  GO  TO  20 

22340  10  CONTINUE 

22350C 

22360  20  VMED= ( VMED1+VMED2 ) f2 

22370  ESQV=(ESQl+ESQ2>/2 

22380CCC  PRINT* , "VMED , ESQV  " , VMED , ESQV 

22390  RETURN 

22400  END 

22410C 

22420C 

22430C 

22440C===================  SUBROUTINE  IDENT  =====«============== 

22450C=====CALLED  BY  SUBROUTINE  GRAPH!  IF  2  OR  MORE  GRAPH  COORDINATES  ARE 

22460C  IDENTICAL,  IT  "SPREADS*  THEM  OUT,  KEEPING  THEM  AS  CLOSE  TO  THE 
27470C  ORIGINAL  COORDINATE(S)  AS  POSSIBLE. 

22480C  FOR  EXAMPLE!  COORDINATES  7,7,4,12  BECOME  6,7,4,12 

22490C  COORDINATES  10,10,10,10,10,10  BECOME  7,8,9,10,11,12 

22500C 

22510  SUBROUTINE  I DENT (PARAM, INDEX, NUMFREQ, ICN) 

22520C 
22530 


COMMON/G/GVELZ ( 6 ) ,GVELH(6) ,GVELAZ(6) 
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22540 
22550C 
22560 
22570 
2/580 
22590 
2/600 
22610 
2/620 
22630 
2/640C 
2/650 
22660 
2/670 
2/680 
22690 
22700C 
22710 
2/720 
2/730 
2/740 
2/750 
2/760 
22770 
22780 
2?  790 
22800C 
22810 
2/820 
22830 
22840 
2/850 
2/860 
22870 
2/880 
22890 
22900 
22910 
22920 
22930 
2/940 
22950 
2/960 
2/970 
22980 
22990 
23000C 
23010 
23020 
23030 
23040 


DIMENSION  PARAH(6) , INDEX(6) , PARIS) , IND(6) . IP(6) 
J=0 

DO  10  I=1»NUNFR£Q 
PAR<I>=IND<I>=IP(I>=0 
IF(GVELZ( I ) .EG. “  ")  GO  TO  10 
J=J+1 

PAR(J)=PARAM(I)  *  IND( J)-IND£X( I )  *  IPt J»=I 

10  CONTINUE 

JA=J  *  J1=J-1 

IF(ICN.EG.Z)  GO  TO  25 
DO  20  J=lr JA 

IF(IND( J) .LE. (73-NUMFREG) )  GO  TO  20 
IND< J)=IND< J)-72  »  PAR( J)=PAR( J)-360 
20  CONTINUE 

25  IFAGAIN=0 
DO  30  J-lrJl 

IF(PAR<J).LE.PAR<J+1)>  GO  TO  30 
IFAGAIN=1 

TEHP=PAR< J)  *  PAR(J)=PAR( J+l)  *  PAR< J*1>=TEMP 
ITEMP=IND( J)  *  IND( J)=IND( J+l >  *  IND( J+l )=ITEMP 

ITEMP=IP( J)  *  IP<J)=IP<J+1>  *  IP( J+1)=ITENP 

30  CONTINUE 

IF(IFAGAIN.EG.l)  GO  TO  25 

NT=IFIX(FLGAT< JAJ/2+.5) 

JA1=JA-1  *  NTK=0 
40  IFAGAIN=0  *  NTK=NTK+1 
DO  50  J-l > JA1 

IF( IND(J) .NE. IND( J+l ) )  GO  TO  50 
IFAGAIN=1 
IND( J>=IND( J)-l 
GO  TO  60 
50  CONTINUE 

60  IF ( IFAGAIN.NE.  1  )G0  TO  90 
IF(NTK.GT.NT)  GO  TO  80 
DO  70  J-l> JA1 
IBK=JA1+1-J 

IFUND<IBK+1>.NE.IND(IBK>>  GO  TO  70 
IFAGAINS1 

IND( IBK+1 )=IND( IBK+1 )+l 
GO  TO  80 
70  CONTINUE 

80  IF(IFAGAIN.EQ.l)  GO  TO  40 

90  IF(ICN.EQ.2>  GO  TO  110 
DO  120  J-l.JA 

IF(INDU).LT.l)  IND<J)*IND<J>+73 
120  IF( IND( J) .GT.73)  IND< J>=IND< J)-73 
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2.1050C 

23060 

•i070 

3080 

3090 


110  DO  100  J=1 r JA 
100  IND£X( IP( J) )=IND( J) 
RETURN 
END 
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